Hallo,
ich würde gerne zu dieser Mail immer die Signatur mit senden
das sollte möglichst über VBA geladen werden.
Sub PDFundSenden()
ChDrive "Q:\" 'Laufwerk
ChDir "Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich" 'Pfad
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
"Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich\Lagerleitstand_aktuell.pdf", OpenAfterPublish:=False 'als PDF speichern"
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.to = Range("O1") 'An
.CC = Range("O2") 'CC
.Subject = Range("O3") 'Betreff
.Body = Range("O4") 'Text
.Attachments.Add "Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich\Lagerleitstand_aktuell.pdf"
.Attachments.Add "Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich\Negative_aktuell.pdf"
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
End With
End Sub
Hallo,
die Outlook-Signaturen (txt, rtf, htm) befinden sich (normalerweise) im Verzeichnis
C:\Users\Username\AppData\Roaming\Microsoft\Signatures
Von dort kann die gewünschte Signatur-Datei eingelesen und an den Mail-Body angehängt werden.
funktioniert leider nicht so wie ich es mir Vorgestellt habe...
bekomme ein Sytaxfehler
habe bei .Body nach = Range ("04") noch ein & Clipboard.SetDataObject "C:\Users\mancflor\AppData\Roaming\Microsoft\Signatures\Standart.htm"
Sub PDFundSenden()
ChDrive "Q:\" 'Laufwerk
ChDir "Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich" 'Pfad
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
"Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich\Lagerleitstand_aktuell.pdf", OpenAfterPublish:=False 'als PDF speichern"
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.to = Range("O1") 'An
.CC = Range("O2") 'CC
.Subject = Range("O3") 'Betreff
.Body = Range("O4") & Clipboard.SetDataObject "C:\Users\mancflor\AppData\Roaming\Microsoft\Signatures\Standart.htm"
.Attachments.Add "Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich\Lagerleitstand_aktuell.pdf"
.Attachments.Add "Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich\Negative_aktuell.pdf"
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
End With
End Sub
Hallo,
was willst Du mit SetDataObject erreichen?
Lese die Signatur mit z. B. Lineinput in einen String und hänge den an den Body an.
Bei .Body hast Du eine Text-Mail, mit muss auch die Signatur aus einer txt-Datei gelesen werden.
Bei .HtmlBody ist eine .htm-Datei zu verwenden.