|
Hallo liebe VBA Gemeinschaft,
hoffe Ihr könnt mir bei meinem VBA Problem helfen.
Bin noch recht neu da dran.
Das Makro funktioniert an sich.
Nur muss ich den Datei namen jedes mal ändern für die nachverfolgung.
jetzt die Frage:
wie gebe ich bei myAttachend den Pfad namen ein, dass der Dateiname geändert wird / ist ?
hier das makro:
Sub pdfundsendenProduktion()
Dim DateiName As String
DateiName = Range("R6") & Range("O6") & ".pdf"
Range("A1:L33").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, OpenAfterPublish:=True
Dim Outlook As Object
Dim outlookmailItem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("outlook.application")
Set outlookmailItem = OutlookApp.CreateItem(0)
Set myAttachments = outlookmailItem.Attachments
With outlookmailItem
.to = Range("O9") & ";" & Range("P9")
.cc = Range("O10")
.Subject = Range("O14")
.body = Range("O15")
myAttachments.Add "V:\Qualitatsw\LABOR\aktuell\tests_excel\DAF 01.pdf"
.Display
End With
End Sub
DAF 01 wird in zeile 06 geändert.
Gibt es dafür eine Lösung?
Vielen Dank für eure Hilfe.
Gruß Nicole
|