Code für mail bringt Fehler.....
15.07.2004 08:24:15
Peter
hat jemand trotz der frühen Stunde die Muße mir zu helfen?.....mit nachstehendem Code will ich eine Datei an eine vorbelegte Adresse als Anhang mailen....funzt auch soweit,....jedoch wenn ich nach dem öffnen des mail-fensters nicht sende, sondern schließe, bringt er bei der Zeile .send ne Fehlermeldung.....wie kann ich diese verhindern?
Sub WorkbookMailen()
Dim OutApp, Nachricht As Object
Dim Datei As String
Set OutApp = CreateObject("Outlook.Application")
InitializeOutlook = True
Datei = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "leibing@baugeld-team.de"
.Subject = "Kundendatei Stand: " & Date
.Attachments.Add Datei
.Body = "Vertrauliche Information" & Chr(10) & "von Ident-Nr: " & Name
.display
.Send
End With
OutApp.Quit
Set OutApp = Nothing
End Sub
Danke
Peter S.