VBA

[tomtom89]

Hallo zusammen,

danke für die Aufnahme! Ich benötige folgende Hilfe

Ich möchte einen Ausgewählten Bereich (eine Transportanfrage mit mehreren verbundenen Zeilen) als PDF Body versenden, nicht als Anhang sonders ersichtlich im Frontbereich der E-Mail.

hier meine bisheriger VBA:

Sub EmailManuellAbsenden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
   .to = "testest@test.de"
   .Subject = ("Transportanfrage / Transport inqiry ") & Range("b37")
   .HTMLBody = RangeToHTML(ActiveSheet, ActiveSheet.Range("A8"))
  
   .send
  
End With
End Sub

Habt Ihr eine Idee?

Vielen Dank,
Tom

[MisterBurns]

Hallo Tom,

ich habe zwar keine Ahnung, was ein PDF Body sein soll, aber eigentlich ist doch hier alles gesagt, oder?

[tomtom89]

Danke für deine Antwort.

Ich versuche mich etwas genauerer Auszudrücken:

Ich möchte das Dokument welches ich in Exel erstellt habe als Email verenden, allerdings nicht als Anhang sondern Sichtbar als "Text".

Vielleicht weißt du nun was ich probiere umzusetzen?

[MisterBurns]

Ja, und ich habe dir einen Link zur Verfügung gestellt.

[tomtom89]

Danke dafür. Und was davon genau muss ich in meiner "Datei" übernehmen, dass die Anwendung wie beschrieben klappt?

[schauan]

Hallöchen,

RangeToHTML erwartet einen Parameter, Du übergibst zwei ...

[tomtom89]

Hier das Dokument welches ich versenden möchte. Was muss ich hier genau in die Formel einfügen damit das Programm die Transportanfrage versendet?

[Case]

Hallo, :19:

so: :21:

  Outlook_Range_im_Body_Code_von_Ron_de_Bruin.xlsb (Größe: 25,99 KB / Downloads: 4)

Mailadresse ändern und wenn du gleich versenden willst, dann ".Send" rein und ".Display" raus.

Ist jetzt genau das aus dem Link von MisterBurns.

[tomtom89]

Suuuper!! Vielen Dank! .. das hat mir sehr geholfen!