Mailto Problem
05.07.2014 23:35:08
Laser
Ich hab mir ein VBA code gebastelt um von Excel aus eine Vordefinierte Mail zu schicken. in der ein Hyperlink eingebetet ist um eine retourmail zu schicken.
Jetzt habe ich volgendes Problem das der Hyperlink Code richtig erstellt wird aber im Mail nicht kommplet übergeleitet wird. an was kann das liegen?
Email ist Thunderbird
durch diese Formel generiere ich diesen Code
="Rechnung erstellen"
So schaut der code aus
Rechnung erstellen
schaut er so aus
mailto:info@max_musterman?subject=Referenz:
Private Sub CommandButton5_Click()
Dim strAn As String
Dim strBetr As String
Dim strBody As String
Dim strAttPfad As String
Dim strThunderPfad As String
Dim strShell As String
'******** anpassen
strThunderPfad = """C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"""
strAn = Range("H7") '"Meine Email Adresse," 'mehrere Empfänger durch Komma trennen!
strBetr = Range("ab8") '"blablubb"
strBody = Range("ab9").Value & vbCrLf & vbCrLf & Range("ab10").Value & vbCrLf & Range("ab11"). _
_
_
Value & vbCrLf & Range("ab12").Value & vbCrLf & vbCrLf & Range("ab13").Value & vbCrLf & Range(" _
_
ab22").Value '"ExcelBlatt Texte"
strShell = strThunderPfad & _
" -compose """ & _
"to='" & strAn & "'," & _
"subject='" & strBetr & "'," & _
"body=" & strBody & _
Call Shell(strShell, vbNormalFocus)
End Sub