Verbinden bzw. Verketten von Werten aus Spalte
28.11.2018 10:43:35
Werten
ich möchte aus einer Tabelle aus z.B. Spalte E alle Werte in einer Zelle z.B. G2 verbinden bzw. verketten jeweils mit einem ";" nach jedem Wert aus einer Zelle.
Ziel ist es diese Werte in Thunderbird unter An: einzufügen.
Mein Code hierzu:
'funktioniert
Private Sub Thunderbird()
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 = "Meine Email Adresse," 'mehrere Empfänger durch Komma trennen!
strBetr = "blablubb"
strBody = "ExcelBlatt Texte"
strShell = strThunderPfad & _
" -compose """ & _
"to='" & strAn & "'," & _
"subject='" & strBetr & "'," & _
"body=" & strBody & _
Call Shell(strShell, vbNormalFocus)
End Sub
Bei dieser Gelegenheit möchte ich mich gerne Erkundigen, ob es Möglich ist mittels diesem Makro .bcc = zu aktivieren bzw. auszuwählen.
Besten Dank für eure Hilfe.
Gruss
Peter
Anzeige