Office: aEmail.ATTACHMENTS.Add

Liebe alle

Ich habe ein Makro, bei welchem die Datei «Besuchsbericht» auf den Desktop gespeichert wird, damit sie später von dort aus mittels Mail versendet werden kann:

With ThisWorkbook.Worksheets("Bericht")
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Environ("userprofile") & "\Desktop\Besuchsbericht.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Leider bekomme ich bei folgendem Code-Abschnitt immer eine Fehlermeldung, weil die Datei auf dem Desktop nicht bezogen werden kann:
aEmail.ATTACHMENTS.Add = "C:\Desktop\Besuchsbericht.pdf"

Hier noch der ganze Code-Abschnitt:
Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)
aEmail.Subject = strBetreff
aEmail.HTMLBody = "Sehr geehrte bla bla bla… »
aEmail.ATTACHMENTS.Add = "C:\Desktop\Besuchsbericht.pdf"
aEmail.To = strEmpfaenger
aEmail.Send
Kill "C:\Desktop\Besuchsbericht.pdf"

Könnte mir jemand helfen, um die Fehlerstelle zu korrigieren? Wichtig ist: das Makro muss auf mehreren PCs laufen (daher «Environ userprofile»).

Ganz herzlichen Dank und liebe Grüsse - Matthias

:)

 

Hallo!

Du musst das "=" weglassen.

Gruß, René

 

Hallo René

Vielen Dank für deinen Vorschlag. Funktioniert bei mir leider nicht.

Müsste ich allenfalls noch "Environ, userprofile" irgendwie integieren? Ich danke weiterhin herzlich für jede gute Idee.

LG, Matthias

 

Hallo Matthias,

in der Zeile beginnend mit Filename:= hast Du schon das Userprofil eingebaut.
Auf gleiche Art kannst Du es doch beim .Add und bei Kill machen oder eine Variable dafür bilden und benutzen.

 

Vielen Dank haklesoft!

Ich werde das gerne nochmals so probieren...*Smilie

LG/Matthias