Application.ScreenUpdating = False
Application.DisplayStatusBar = True
bolStatusBar = Application.DisplayStatusBar
Set objOutlook = CreateObject("Outlook.Application")
strRecipient = "Datei geöffnet"
strFile = "Habe Die Datei geöffnet!"
Application.StatusBar = "Sende Datei " & strFile & " an " & strRecipient
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Set objOutlookRecip = .Recipients.Add(strRecipient)
objOutlookRecip.Type = olTo
.Subject = "Datei öffnen"
.Body = strFile
objOutlookRecip.Resolve
.Send
End With
Set objOutlook = Nothing
Application.StatusBar = False
Application.DisplayStatusBar = bolStatusBar
Gruß
F.
wo steht der Empfänger und wo der Absender ?
Außerdem warnt mich Outlook das Excel auf das Adressbuch zurückgreift.