Hallo Ralf,
danke für deine Rückmeldung. Hier das ganze Projekt.
Bevor die Datei als PDF gespeichert wird und als Mail versendet werden soll muss geprüft werden ob in B5 ein Wert eingetragen ist aus welchem sich am Ende die Mail Adresse für den Mail versand ableitet:
Sub PDF_Mail_Arbeitsbericht_Final_Test()
If Tabelle1.Range("B5").Value = "" Then
MsgBox ("Fehler! Es wurden nicht alle Felder gefüllt!")
End If
If Tabelle1.Range("B5").Value = "" Then
End
'Datum einfügen Time ist die Uhrzeit / now ist das Datum
Range("n6").Value = Time
'Benutzername einfügen
Range("N1").Value = Environ("Username")
'Als PDF Speichern true oder false das die Datei öffnet
Dim DateiName As String
DateiName = Range("K3") & Range("K2") & ".pdf"
Range("A1:j57").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Tabelle1.Range("o3").Value & "\" & Tabelle1.Range("o5").Value & ".pdf", OpenAfterPublish:=False
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("N8")
.Subject = Range("N9")
myAttachments.Add Tabelle1.Range("o3").Value & "\" & Tabelle1.Range("o5").Value & ".pdf"
.Display
End With
Set OutlookApp = Nothing
Set OutlookMail = Nothing
End Sub
|