Code läuft erst beim 2. Aufruf

Computer: Software & Programmierung Office Software
1

EXCEL-MAKRO:

Sub ZumFahrdienst()

'Versandt des Formulars mit E-Mail zum Fahrdienst
'Adresse wird aus dem Formular Zelle E76 entnommen

Dim adr_fahrd
…

'VERSAND:

adr_fahrd = Worksheets(„Formular“).Range(„E79“)

Application.SendKeys (adr_fahrd) 'SendKeys muß v o r Dialoganweisung stehen
Application.SendKeys ("{TAB}{TAB}")
Application.SendKeys („FAHRDIENST“)
Application.Dialogs(xlDialogSendMail).Show

…

End Sub

mit o.g. Makro wird

  • das E-Mail - Formular (MS-EXCHANGE) geöffnet,
  • die Adresse (adr_fahrdienst) automatisch eingetragen
  • der Betreff (FAHRDIENST) automatisch eingetragen
    und danach das E-Mail per Mausklick versandt

PROBLEM:
Diese Automatik funktioniert nicht beim ersten MAL nach dem Start von Excel - danach be-liebig oft
Wie kann Excel bewogen werden, die Eintragungen sofort, also bereits beim ersten Mal au-tomatisch vorzunehmen?

Danke
Gruß Uli

2

HI Uli,

Dein Makro läuft nur mit viel Glück, weil die SendKeys-Anweisung nicht mit dem Dialogzeigen synchronisiert werden kann. Hier die richtige Lösung (beim Dialog anzeigen können die Parameter Empfänger und Betreff angegeben werden):

Application.Dialogs(xlDialogSendMail).Show „Empfänger“, „Betreff“

also in Deinem Fall:

Application.Dialogs(xlDialogSendMail).Show adr_fahrd, „FAHRDIENST“

Viel Erfolg
Sculpture

P.S.: Du hast in Deinem Posting einmal E76 und einmal E79 als Zelle für die Adresse angegeben!

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]