Mail aus Excel per Thunderbird

[psychodennis89]

Hallo liebe leute bei folgender Formel möchte ich die rot markierten passagen durch den Zellbezug auf bestimmte Zellen ersetzen, mit dem Befehl Range.Valves habe ich es (leider erfolglos) versucht

Sub Mail()

Dim strMailAufbau As String

strMailAufbau = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe" & _
                " -compose format=2,preselectid=id1" & _
                ",to='XXX',subject='Rechnung 20170001'" & _
                ",body='im Anhang dieser Mail erhalten Sie die Rechnung',attachment='file:///E:\Dokumente\Brutto0717.pdf'"
                       
    Shell strMailAufbau, vbMaximizedFocus
    
End Sub

vielen dank für Eure Hilfe im Vorraus

[Kuwer]

Hallo,

Sub Mail()

Dim strMailAufbau As String

strMailAufbau = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe" & _
               " -compose format=2,preselectid=id1" & _
               ",to='" & ActiveSheet.Range("A5").Value & "',subject='Rechnung 20170001'" & _
               ",body='im Anhang dieser Mail erhalten Sie die Rechnung',attachment='file:///E:\Dokumente\" & ActiveSheet.Range("B5").Value & "'"
                      
   Shell strMailAufbau, vbMaximizedFocus
   
End Sub

Code eingefügt mit: Excel Code Jeanie


Gruß Uwe

[psychodennis89]

Hallo liebe Leute leute anbei habe ich leider 2 markierte kleinigkeiten vergessen

Sub Mail()

Dim strMailAufbau As String

strMailAufbau = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe" & _
                " -compose format=2,preselectid=id1" & _
                ",to='" & ActiveSheet.Range("A16").Value & "',subject='& ActiveSheet.Range("f12")& ActiveSheet.Range("j12")'" & _
                ",body='im Anhang dieser Mail erhalten Sie die Rechnung',attachment='file:///E:\Dokumente\" & ActiveSheet.Range("j12").pdf.Value & "'"
                       
    Shell strMailAufbau, vbMaximizedFocus
    
End Sub
 
irgendwie gibt es bei den markierten stellen noch probleme

[Kuwer]

irgendwie gibt es bei den markierten stellen noch probleme

Ich habe Dir gezeigt, wie es geht. Deine Schuhe bekommst Du doch selber zugebunden.

Gruß Uwe

[psychodennis89]

in diesm fall leider nicht, da die endung pdf das ganze irgenwie verkompliziert genauso wie die sache mit dem 2 Felder bezug

[Kuwer]

Hallo,

Sub Mail()
Dim strMailAufbau As String
strMailAufbau = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe" & _
               " -compose format=2,preselectid=id1" & _
               ",to='" & ActiveSheet.Range("A16").Value & "',subject='" & ActiveSheet.Range("f12") & ActiveSheet.Range("j12") & "'" & _
               ",body='im Anhang dieser Mail erhalten Sie die Rechnung',attachment='file:///E:\Dokumente\" & ActiveSheet.Range("j12").Value & ".pdf'"
Shell strMailAufbau, vbMaximizedFocus
End Sub

Code eingefügt mit: Excel Code Jeanie


Gruß Uwe

[psychodennis89]

vielen dank für deine schnelle Hilfe, wenn ich nun zwischen  den Zellbezügen nur ein Leer zeichen einfüge wird dieses automatisch entfernt gibt es auch dafür einen Befehl ? subject='" & ActiveSheet.Range("f12") & _ActiveSheet.Range("j12") & "'" & _

[Kuwer]

Hallo,

subject='" & ActiveSheet.Range("f12") & " " & ActiveSheet.Range("j12") & "'" & _

Gruß Uwe  :22: