Email

Hier im Forum hatte ich folgenden Code für den automatischen Mailversand gefunden und nutze den seit fast einem Jahr. Er funktioniert super, und sogar dann, wenn Outlook nicht gestartet ist. Es wurden aber immer eine oder mehrere Dateien angehängt.
'Outlook Object erstellen
Set MyOutApp = CreateObject("Outlook.Application")
'Outlook Nachricht erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
'AN-Empfänger
.To = ANADR
.Subject = BETREFF
.Attachments.Add ATTA
'Hier wird ein normaler Text erstellt
.Body = TXTBODY
'Hier wird eine HTML Mail erstellt
'Dies kann zu Problemen führen, wenn der Empfänger
'nur TEXT Dateien empfangen darf.
'.HTMLBody = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail gleich in den Postausgang gelegt und gesendet
.Send
End With
'Outlook schliessen
'MyOutApp.Quit
'Variablen leeren
Set MyOutApp = Nothing
Set MyMessage = Nothing
Jetzt habe ich erstmals versucht, automatisch Mails ohne Anhang zu senden. Dafür habe ich die Zeile
.Attachments.Add ATTA
einfach auskommentiert. Die Mail wird jetzt aber nur noch dann automatisch gesendet, wenn Outlook gestartet ist, ansonsten bekomme ich den Laufzeitfehler '287': Anwendungs- oder objektdefinierter Fehler.
Ok, ich könnte mir dadurch behelfen, dass ich den E-Mail-Body in eine Textdatei schreibe und diese dranhänge. Aber vielleicht hat jemand den ultimativen Tipp, und ich kann mir das mit dem Anhang schenken.
Übrigens: Die VBA-Makros werden nachts zeitplangesteuert gestartet und laufen unter einem bestimmten Konto.
Der Eigentümer des Kontos ist dann der E-Mail-Absender. Outlook wird nicht gestartet.
Schon mal vielen Dank
Bodo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo René,
wenn ich Dein Statement richtig interpretiere, dann bedeutet das folgendes:
- Für den automatischen Mailversand mit Anhängen braucht Outlook nicht gestartet sein.
- Für den automatischen Mailversand ohne Anhang muss Outlook gestartet sein.
Das macht für mich keinen Sinn, bin aber auch nicht beratungsresistent, sollte mir das noch ein anderes Forummitglied bestätigen.
Trotzdem René: Mach Dein Outlook mal zu und probier den Code MIT Anhang aus. Du wirst sehen, da gibt es keine Fehlermeldung. Und wenn Du Outlook später startest, dann hast Du die Mail im Posteingang. Oder wenn der Adressat jemand anderes ist, dann bekommt er die Mail sofort auch wenn Dein Outlook zur Makro-Laufzeit nicht gestartet war.

Sub Open_Outlook() Dim booOutlookIsOben As Boolean On Error Resume Next booOutlookIsOben = Not GetObject(, "Outlook.Application") Is Nothing On Error GoTo 0 If Not booOutlookIsOben Then With Application Shell IIf(Right$(.Path, 1) = "\", .Path, .Path & "\") & "OUTLOOK.EXE", vbMinimizedFocus End With End If End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Email

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread