@Ramses: Fehlermeldung bei Arbeitsmappe per ....
11.09.2005 17:37:34
Peter
...Outlook versenden. Hab den Code von deine HP.
Funktioniert auch super. Das einzige Problem hab ich mit der Zeile
InitializeOutlook = True / VBA meldet Variable nicht definiert.
wenn ich die Zeile einfach lösche funzt alles.
Was besagt diese Zeile ?
Danke für deine Zeit. Für alle anderen unten der Code.
Excel Arbeitsmappe mit Outlook versenden
Die aktive Arbeitsmappe wird direkt als Mail Attachment mit Outlook gesendet
Sub Excel_Workbook_via_Outlook_Senden()
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 = "irgendwer@provider"
.Subject = "Testmeldung von Excel2000 " & Date & Time
.attachments.Add AWS
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
'Outlook schliessen
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
MfG
Peter