komme mit dem folgenden Code zwar bis in den Postausgang von MS Outlook, doch dann kann ich nicht versenden. Irgendwie bekomme ich Outlook nicht zum rennen.
In Outlook Express dagegen geht es!
Jetzt möchte ich mit diesem Code direkt auf Outlook Express zugreifen. Dabei sollen die Applikationen, explizit das Workbook, angehängt werden. Geht das?
Private Sub SendenButton_Click()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Range("E15")
.Subject = "Monatsdatenübertragung " & Date & Time
.attachments.Add AWS
.Body = "Hallo " & vbCrLf & "anbei meine Monatsdaten." & vbLf & "Gruß " & Range("E23")
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Wer hat Lust so spät noch zu antworten.
Dafür Danke.
Gruß
Wolfgang