AW: Super Mail als PDF mit Text in Outlook
03.05.2021 22:36:31
Yal
Hallo AndreAndreAndre,
es tut mir Leid, aber eine Verdreifachung wird nicht helfen: heute ist trotzdem "Sven-Tag": 3 Sven-Anfragen (unterschiedlichen!) vor Dir.
So jetzt ernst: dein Coding ist in einem Modul. Jede Range-Bezug muss auf einer Tabelle eindeutig gegeben sein, anders als in einer Tabelle-Codepane.
Sub PDF_und_Senden()
Dim DateiName As String
Dim W As Worksheet
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set W = Worksheets("File")
DateiName = W.Range("K3") & W.Range("K2") & ".pdf"
W.Range("A1:G48").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.To = W.Range("K16")
.Subject = W.Range("K17")
.Body = W.Range("K37")
myAttachments.Add DateiName
.Display
End With
Set Outlook.App = Nothing
Set OutlookMailItem = Nothing
End Sub
Vermeide ebenfalls die Variablen-Deklaration ("Dim") innerhalb des Codings. Kann unter Umstande vom Compiler angemekert werden.
VG
Yal