E-Mail aus Excel mit Thunderbird

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hansueli,
ich öffne mittels Excel das Programm Thunderbird. Es wird dabei das Formular "Verfassen" geöffnet.
In einem Standardprogramm ist in der Regel eine E-Mail-Adresse vom Verfasser hinterlegt. Dadurch wird in der ersten Zeile "Von:" die E-Mail-Adresse aufgelistet.
Hat jedoch der Verfasser zwei oder mehrere E-Mail-Adressen(Konten) angelegt, kann er, wenn er eine E-Mail versenden wir auswählen, welche Adresse er verwenden will.
Ich möchte nur, dass ich über den Code vorgeben möchte, welche Adresse verwendet wird.
So wie ich für den Empänger "An:" auswählen kann, müsste eben auch möglich sein "Von:" vorzugeben.
Wenn Du hierzu meinen Code benötigen solltest, gebe mir bitte Bescheid.
Ich hoffe ich habe mich jetzt verständlich ausgedrückt.
Gruss
Peter

Hallo Hansueli,
nachstehend den von mir verwendeten Code zum Aufruf von Thunderbird:
<pre>Private Sub CommandButton7_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
'Ausdrucken der Inhalte Tabelle4 ohne Kommentare als Nachweis für Absenden von EMails
''Call Drucken_ohne_Kommentare_Tabelle4
Call Drucken_TB_AGEreignisMail
'******** anpassen Pfad von Thunderbird
strThunderPfad = """C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"""
'strAn = "Meine Email Adresse," 'mehrere Empfänger durch Komma trennen!
strAn = Me.TextBox3.Value
'strBetr = "blablubb"
strBetr = Me.TextBox4.Value
'strBody = "ExcelBlatt Texte"
strBody = Me.TextBox5.Text & vbCrLf & vbCrLf & _
Me.TextBox6.Text & vbCrLf & vbCrLf & _
Me.TextBox7.Text & vbCrLf & vbCrLf & _
Me.TextBox8.Text & vbCrLf & vbCrLf
'u.a. Zeilen werden benötigt um die EMail zu erstellen
strShell = strThunderPfad & _
" -compose """ & _
"bcc='" & strAn & "'," & _
"subject='" & strBetr & "'," & _
"body='" & strBody & _
"'"""
Call Shell(strShell, vbNormalFocus)
Me.ListBox2.ListIndex = -1
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.TextBox6 = ""
Me.TextBox7 = ""
Me.TextBox8 = ""
'Me.TextBox3 = ""
Me.CommandButton6.Enabled = False
Me.CommandButton10.Enabled = True
Me.ComboBox9.ListIndex = 0
Me.ComboBox10.ListIndex = 0
End Sub</pre>
Dieser Code funktioniert mit Thunderbird einwandfrei und wählt die 1.Adresse von: aus.
Da ich selbst keine zwei E-Mail-Konten besitze kann ich dies natürlich nicht testen.
Wenn jedoch der User zwei Konten hat, kann er ja über Von: aus den angemeldeten Adressen eine auswählen. Und um diesen Punkt geht es.
Hast Du da eine Idee?
Besten Dank
Gruss
Peter

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

E-Mail aus Excel mit Thunderbird

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread