Tabellenblatt via Mail versenden
02.11.2017 13:06:50
Tommy
Ich habe folgenden Code aus dem Netz gefischt und versucht anzupassen.
Ziel ist es, das dass Tabellenblatt "Email" per mail an einen festen emailempfänger gesendet werden soll.
Leider bleibt er bei " .attachments.Add AWS" hängen.
Warum?
hier mal der Code dazu:
Private Sub CommandButton3_Click()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = Worksheets("Email").Select
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "test@test.de"
.Subject = "Testmeldung von Excel2000 " & Date & Time
.attachments.Add AWS
.Body = "Das ist ein Test."
'Hier wird die Mail gleich in den Postausgang gelegt
.Mail.Send
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub