Application Outlook
Andreas
ich bekommen bei diesem VBA-Code immer eine Debuggen Fehlermeldung!
Und zwar bei der Zeile 'Anwendung Outlook starten'.
Hat sich in Excel 2010 was geändert?
Vielen Dank im voraus
Sub EMailZusammensetzen()
Dim appOutlook As Outlook.Application
Dim MailItem As Outlook.MailItem
' Anwendung Outlook starten
Set appOutlook = CreateObject("Outlook.Application")
' E-Mail erstellen
Set MailItem = appOutlook.CreateItem(olMailItem)
' Eigenschaften hinzufügen
MailItem.To = "max.muster@test.de"
MailItem.Subject = "Test"
MailItem.Body = "Hallo" & vbCrLf & "Welt"
' Anhang hinzufügen
On Error GoTo Fehler
MailItem.Attachments.Add "C:\Temp\test1.jpg"
' E-Mail senden
MailItem.Send
' Anwendung Outlook beenden
appOutlook.Quit
Exit Sub
Fehler:
MsgBox Err.Description
appOutlook.Quit
End Sub