eMail aus Excel heraus
02.09.2022 07:05:55
tobstein
ich benötige ein wenig Hilfe bei einem Makro.
Das folgende Makro habe ich mir irgendwie und irgendwo zusammengebastelt und -gesucht.
Es verschickt die aktuelle Datei an verschiedene eMail-Empfänger.
Das Makro müsste jetzt so geändert werden dass nicht die gesamte Datei sondern nur der Druckbereich der Arbeitsmappe test per Outlook verschickt wird.
Optimalerweise vielleicht sogar als pdf-Dokument.
Da stosse ich allerdings an mein Limit :-)
Vielleich kann mir ein Excel-Experte hier auf die Sprünge helfen.
Vielen Dank schon einmal
tobias
Sub ExcelDateiSenden()
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
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "test@example.com; testing@example.org"
.Subject = "Testmeldung von Excel " & 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