DateiName = Range("I5") & Range("I4") & ".pdf"
a) Überprüfe, ob ein valide Angabe hierbei rauskommt. (Backslahses sind zu beachten)
b) Der Zusatz ".pdf" ist unnötig
Dim Outlook As Object
'passt nicht zu
Set OutlookApp = CreateObject("Outlook.Application")
.Subjekt = Range("I4")
'Richtige Schreibweise ist
.Subject = ...
.To = Range("I2")
.Subject = Range("I4")
'hier sprichst Du die Default-Eigenschaft an, Du bist gut beraten, stets die Eigenschaft/Methode 'explizit' mit anzugeben
.To = Range("I2").Text
.Subject = Range("I4").Text
Set Outlook = Nothing
Set Outlook = Nothing
'nach dem Motto "viel hilft viel" => bringt Dir hier leider nix :)
Set myAttachments = Nothing
Set OutlookMailitem = Nothing
Set OutlookApp = Nothing
Hier ist wichtig, dass der Deklarationsteil zum Definitionsteil übereinstimmt.
Am Besten in der ersten Zeile folgende Anweisung schreiben:
Option Explicit
|