E-Mail aus Excel mit Thunderbird

Forumthread: E-Mail aus Excel mit Thunderbird

16.04.2019 13:08:00

Peter

Hallo ihr Excelspezialisten,
ich habe eine Arbeitsmappe mit einer UF. Mittels dieser UF habe ich zugriff auf E-Mail mit Thunderbird.
Jetzt habe ich ein kleines Problem.
Es existieren zwei E-Mail-Adressen.
Adresse1 und Adresse2.
Ich bräuchte den Zugriff auf Adresse2.
Könnt ihr mir hierbei bitte helfen.
Gruss
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Was heisst Zugriff auf eine Adresse?

16.04.2019 15:17:13

EtoPHG

Hallo Peter,
Das ist wieder einmal ein Problembeschreibung!
Was bitte verstehst du unter Ich bräuchte den Zugriff auf Adresse2.?
Gruess Hansueli

AW: Was heisst Zugriff auf eine Adresse?

16.04.2019 15:26:17

Peter

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

AW: Was heisst Zugriff auf eine Adresse?

16.04.2019 16:31:23

EtoPHG

Hallo Peter,
Meines Wissens bietet Thunderbird keinen programmatischen VBA Zugriff auf verschiedene Send-Accounts.
Alternativ ging es ev. über die Command-Shell.
Gruess Hansueli

AW: Was heisst Zugriff auf eine Adresse?

16.04.2019 16:39:35

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

Kein Zugriff auf n>1 Adresse....

16.04.2019 16:53:41

EtoPHG

Hallo Peter,
Hab ich doch gesagt. Siehe vorherige Antwort. Damit für mich erledigt!
Gruess Hansueli

Infobox / Tutorial

E-Mail aus Excel mit Thunderbird versenden

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Vorbereitung: Stelle sicher, dass du Thunderbird auf deinem Computer installiert hast. Der Pfad zur Thunderbird.exe sollte bekannt sein, z. B. C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe.
VBA-Editor öffnen: Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Modul einfügen: Klicke im VBA-Editor auf Einfügen > Modul, um ein neues Modul zu erstellen.

Code einfügen: Füge den folgenden Code in das Modul ein, um eine E-Mail über Thunderbird zu versenden:

Private Sub CommandButton7_Click()
   Dim strAn As String
   Dim strBetr As String
   Dim strBody As String
   Dim strThunderPfad As String
   Dim strShell As String

   ' Pfad zu Thunderbird anpassen
   strThunderPfad = """C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"""

   ' E-Mail-Adresse von TextBox3 lesen
   strAn = Me.TextBox3.Value
   strBetr = Me.TextBox4.Value
   strBody = Me.TextBox5.Text & vbCrLf & vbCrLf & _
             Me.TextBox6.Text & vbCrLf & vbCrLf

   ' Shell-Befehl erstellen
   strShell = strThunderPfad & _
              " -compose """ & _
              "bcc='" & strAn & "'," & _
              "subject='" & strBetr & "'," & _
              "body='" & strBody & "'" & _
              """"
   Call Shell(strShell, vbNormalFocus)
End Sub

Formular anpassen: Stelle sicher, dass du ein entsprechendes Benutzerformular hast, das TextBoxen für die E-Mail-Adresse, den Betreff und den Text enthält.
Testen: Führe den Code aus, indem du auf den entsprechenden Button in deinem Formular klickst. Thunderbird sollte sich öffnen und die E-Mail mit den angegebenen Informationen vorbereiten.

Häufige Fehler und Lösungen

Fehler beim Ausführen des Codes: Stelle sicher, dass der Pfad zu thunderbird.exe korrekt ist. Überprüfe, ob du die richtige Version von Thunderbird installiert hast.
E-Mail-Adresse wird nicht erkannt: Achte darauf, dass die E-Mail-Adresse in der TextBox korrekt eingegeben wurde. Trenne mehrere Empfänger mit einem Komma.
Thunderbird öffnet sich nicht: Überprüfe, ob Thunderbird als Standard-E-Mail-Programm eingestellt ist. Andernfalls kann es zu Problemen beim Aufruf kommen.

Alternative Methoden

Eine andere Möglichkeit, E-Mails aus Excel zu versenden, wäre die Verwendung von Microsoft Outlook, das eine direktere Integration mit Excel bietet. Du könntest auch die Command-Shell verwenden, um E-Mails über Thunderbird zu senden, falls du VBA nicht nutzen möchtest.

Praktische Beispiele

E-Mail an mehrere Empfänger: Um mehrere E-Mail-Adressen in die BCC-Zeile einzufügen, kannst du diese wie folgt angeben:
```
strAn = "email1@example.com, email2@example.com"
```
Betreff und Body dynamisch gestalten: Du kannst die Eingaben in den TextBoxen anpassen, um personalisierte E-Mails zu erstellen, z. B. durch Hinzufügen von Variablen.

Tipps für Profis

Thunderbird mehrere Konten verwalten: Wenn du mehrere E-Mail-Konten in Thunderbird hast, kannst du die gewünschten E-Mail-Konto als Standard festlegen. Achte darauf, den richtigen Absender auszuwählen.
VBA Thunderbird Automatisierung: Experimentiere mit anderen Optionen der Thunderbird-Befehlszeile, um die Funktionalität zu erweitern, wie z. B. das Hinzufügen von Anhängen.

FAQ: Häufige Fragen

1. Wie kann ich Thunderbird als Standard-E-Mail-Programm einstellen?
Gehe zu den Windows-Einstellungen > Apps > Standard-Apps und wähle Thunderbird als Standard für E-Mails aus.

2. Kann ich mehrere Empfänger in die BCC-Zeile einfügen?
Ja, trenne die E-Mail-Adressen durch ein Komma, z. B. email1@example.com, email2@example.com.

3. Ist es möglich, den Absender direkt im VBA-Code auszuwählen?
Der Zugriff auf mehrere Absender über VBA ist limitiert, aber du kannst manuell den gewünschten Absender in Thunderbird auswählen, nachdem die E-Mail vorbereitet wurde.

Beliebteste Forumthreads (12 Monate)

Forumthread: E-Mail aus Excel mit Thunderbird

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

E-Mail aus Excel mit Thunderbird versenden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

E-Mail aus Excel mit Thunderbird

Forumthread: E-Mail aus Excel mit Thunderbird

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

Forumthreads zu verwandten Themen

Infobox / Tutorial

E-Mail aus Excel mit Thunderbird versenden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread