Werte aus Textbox in E-Mail strAn:

Peter · 2018-12-05T08:14:48+00:00

Guten Morgen ihr Excelspezialisten, aus UF öffne ich Thunderbird. Nun möchte ich die in der Textbox3 aufgezeichneten Werte in strAn: nebeneinander einfügen. Wenn ich eingebe strAn: me.textbox3 dann werden die Werte in Thunderbird untereinander aufgelistet. Besten Dank fur eure Hilfe. Gruss Peter

Hallo ihr Excelspezialisten,
ich starte aus der UF eine E-Mail Thunderbird mit nachstehendem Code:
'Anfang E-Mail 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
Dim Anrede As String
Dim Text As String
Dim Grussformel As String
Dim Signatur As String
Anrede = Me.TextBox5.Value
Text = Me.TextBox6.Value
Grussformel = Me.TextBox7.Value
Signatur = Me.TextBox8.Value
'******** anpassen Pfad von Thunderbird
strThunderPfad = """C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"""
'strAn = "Meine Email Adresse," 'mehrere Empfänger durch Komma trennen!
'strAn = Worksheets("Tabelle4").Range("AF2") 'mehrere Empfänger durch Komma trennen!
strAn = Me.TextBox3.Value
'strBetr = "blablubb"
strBetr = Me.TextBox4.Value
'strBody = "ExcelBlatt Texte"
'funktioniert aber ohne Textbox
strBody = "Sehr geehrte Damen und Herren" & "%0D%0A" & "%0D%0A" & "allgemeiner Text" & Chr(13) & "%0D%0A" & "%0D%0A" & "Mit freundlichen Grüssen" & "%0D%0A" & "%0D%0A" & "Absender" & Chr(13)
'strShell = strThunderPfad & _
'" -compose """ & _
'"to='" & strAn & "'," & _
'"subject='" & strBetr & "'," & _
'"body=" & strBody & _
'""""
'Call Shell(strShell, vbNormalFocus)
strShell = strThunderPfad & _
" -compose """ & _
"bcc='" & strAn & "'," & _
"subject='" & strBetr & "'," & _
"body=" & strBody & _
""""
Call Shell(strShell, vbNormalFocus)
'Ende E-Mail Thunderbird
Wie schon in der vorherigen Anfrage bitte ich um Hilfe, wie die E-Mail Adressen gesammelt aus TextBox4 in strAn gelangen.
Weiterhin bitte ich euch um Hilfe, wie anstatt der Texte im strBody mittels der Textboxes 5,6,7,8 eingefügt werden können.
Besten Dank für eure Hilfe.
Gruss
Peter

Hallo ihr Excelspezialisten,
wenn ich bei strBody nachstehendes eingeben funktioniert dies einwandfrei:
strBody = "INFOS " & vbCrLf & vbCrLf & _
"Projekt-Nr.: " & UserForm1.TextBox1.Text & vbCrLf & vbCrLf & _
"Projektname: " & UserForm1.TextBox2.Text & vbCrLf & vbCrLf & _
"Datum: " & UserForm1.TextBox3.Text & vbCrLf & vbCrLf & _
"Abteilung: " & UserForm1.TextBox4.Text & vbCrLf & vbCrLf & _
"Sachbearbeiter: " & UserForm1.TextBox5.Text & vbCrLf & vbCrLf & _
"Rubrik: " & UserForm1.TextBox6.Text & vbCrLf & vbCrLf & _
"Bauteil: " & UserForm1.TextBox7.Text & vbCrLf & vbCrLf & _
"Beschreibung: " & UserForm1.TextBox8.Text & vbCrLf & vbCrLf & _
"Datei-Name: " & UserForm1.TextBox9.Text & vbCrLf & vbCrLf & _
"Datei-Format: " & UserForm1.TextBox10.Text & vbCrLf & vbCrLf & _
"Fehler-Kategorie: " & UserForm1.TextBox11.Text & vbCrLf & vbCrLf & _
"Fehlerursache: " & UserForm1.TextBox12.Text & vbCrLf & vbCrLf & _
"Vorschlag zur Vermeidung: " & UserForm1.TextBox13.Text & vbCrLf & vbCrLf & _
"Mitteilung: " & UserForm1.TextBox14.Text & vbCrLf & vbCrLf & _
"Mit freundlichen Grüßen " & Chr(13)
Was jedoch nicht funktioniert, wenn in der Textbox bzw. Zelle ein Zeichen folgt: z. B. ". oder , ect".
Wie kann ich dies bitte korrigiereen.
Besten Dank für eure Hilfe.
Gruss
Peter

Werte aus Textbox in E-Mail strAn:

Forumthread: Werte aus Textbox in E-Mail strAn:

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Werte aus Textbox in E-Mail strAn:

Forumthread: Werte aus Textbox in E-Mail strAn:

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread