Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aus Textbox in E-Mail strAn:

Forumthread: Werte aus Textbox in E-Mail strAn:

Werte aus Textbox in E-Mail strAn:
05.12.2018 08:14:48
Peter
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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: noch ein Erweiterung
05.12.2018 11:05:57
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
Anzeige
AW: noch ein Erweiterung
05.12.2018 14:08:28
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
Anzeige
AW: Werte aus Textbox in E-Mail strAn:
05.12.2018 12:24:44
PeterK
Hallo
Wenn die Werte untereinander aufgelisten werden, ist vermutlich ein Linefeed (CHR(10)) die Schuld.
Probier: strAn = REPLACE(me.textbox3,CHR(10),",")
AW: Werte aus Textbox in E-Mail strAn:
05.12.2018 12:56:13
Peter
Hallo Peter,
funktioniert leider nicht. Wird ebenfalls untereinander aufgelistet.
Die E-Mail-Adressen werden in der Textbox3 nebeneinander aufgelistet z. B.: Email_Test9;Email_Test10
Vielleicht kannst Du das nochmals ansehen.
Besten Dank für Deine Hilfe.
Gruss
Peter
Anzeige
AW: Werte aus Textbox in E-Mail strAn:
05.12.2018 15:03:06
PeterK
Hallo
Kannst Du Deine Mappe hochladen?
AW: Nachtrag zu letztem Eintrag
05.12.2018 16:16:11
Peter
Hallo Peter,
vielleicht hilft dies noch weiter:
In Tabelle4 in Spalte S werden die E-Mail-Adressen von S2bisletzte beschriebene Zelle aufgelistet.
Aber ich weiss nicht, wie ich diese dann in E-Mail strAn = einfügen kann.
Gruss
Peter
Anzeige
AW: Nachtrag zu letztem Eintrag
05.12.2018 16:28:31
Werner
Hallo Peter,
aus der Tabelle kriegst du die z.B. so in eine Variable: 
Public Sub aaa()
Dim strAn As String, loLetzte As Long, i As Long
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 19).End(xlUp).Row
For i = 2 To loLetzte
If strAn = "" Then
strAn = .Cells(i, 19)
Else
strAn = strAn & ";" & .Cells(i, 19)
End If
Next i
End With
MsgBox strAn
End Sub
Wie werden denn die Mailadressen in Thunderbird getrennt, mit Semikolon? Ich hab jetzt mal das Semikolon als Trenner genommen.
Gruß Werner
Anzeige
AW: Nachtrag zu letztem Eintrag
05.12.2018 16:46:17
Peter
Hallo Werner,
besten Dank,
bei Thunderbird wird mit , getrennt. Es geht aber trotzdem nicht
Gruss
Peter
AW: Werte aus Textbox in E-Mail strAn:
05.12.2018 16:44:46
Peter
Hallo Peter,
ich kann zwar die Spalte in Zelle mit Kommatas einfügen.
Wenn ich aber die Textbox einfügen geht es nicht.
Gruss
Peter
AW: Datei anbei
05.12.2018 16:04:56
Peter
Hallo Peter,
Datei anbei: https://www.herber.de/bbs/user/125918.xlsm
Fehlerbeschreibung sh. Tabelle1
Es werden von 3 EMails nur zwei übernommen und dies untereinander.
Gruss
Peter
Anzeige
AW: Datei anbei
05.12.2018 16:49:49
PeterK
Hallo
Thunderbird will ein Komma getrennt Liste 

Email_Test8,Email_Test9,Email_Test10
Im Bodey fehlen '

strShell = strThunderPfad & _
" -compose """ & _
"bcc='" & strAn & "'," & _
"subject='" & strBetr & "'," & _
"body='" & strBody & _

Anzeige
AW: Datei anbei
05.12.2018 19:07:15
Peter
Hallo Peter,
tut mir leid, aber es geht nicht.
Geht die Datei denn bei Dir?
Gruss
Peter
AW: Datei anbei
06.12.2018 07:25:07
Peter
Guten Morgen Peter,
könntest Du bitte so freundlich sein, die von mir zur Verfügung gestellten Datei entsprechend zu ergänzen. Bei mir funktioniert es nämlich nicht.
Besten Dank
Gruss
Peter
Anzeige
AW: Teilerfolg
06.12.2018 07:41:42
Peter
Hallo Peter,
Danke für Deine Hilfe. Es ist ein Teilerfolg zu verzeichnen.
Das mit dem Komma im Body funktioniert.
Was jedoch nicht funktioniert ist die Übernahme der EMail-Adressen aus der Textbox.
Diese sind aufgeschlüsselt Name,Name,Name. Es werden aber von 4 gewählten nur zwei übernommen.
Kann dies evtl auch an der Zeile im Body unten liegen?
Gruss
Peter
Anzeige
AW: noch eine kleine Korrektur
06.12.2018 07:57:04
Peter
Hallo Peter,
es werden alle 4 gewählten EMail-Adressen übernommen. Aber nicht nebeneinander sondern untereinander.
Kennst Du auch für dies eine Lösung, dass die Daten in eine Zeile übernommen werden anstatt in 4 Zeilen?
Dann wäre das gesamte Problem gelöst.
Besten Dank
Gruss
Peter
Anzeige
ohne Worte.......
09.12.2018 12:11:30
robert
;

Forumthreads zu verwandten Themen

Zeilenumbruch, wenn Textbox in Mail eingefügt wird
a_ke

Hallo,
ich habe in einer Userform mehrere Multiline-Textboxes (txt1, txt2, txt3). Da hier mehr als 1024 zeichen eingegeben
werden können, habe ich Probleme beim darstellen im Ausdruck und beim Export/Import.
Deshalb möchte ich jede Zeile so wie diese in der Textbox dargestellt wird...
21.02.2009 15:08:37
Thread-ID: 1052631
7 Beiträge
Anzeige
Text aus Zelle in MsgBox einfügen.
Wolfgang

Hallo,
über eine Checkbox wird, sofern diese markiert wird, eine MsgBox angezeigt. Wie kann ich erreichen, dass aus einem Tabellenblatt "Steuerung" der Text aus Zelle E20 mit eingefügt werden kann?
MsgBox "Bitte folgende Hinweise beachten:"......... und dann der Text aus Zelle E20.
...
08.07.2009 21:08:52
Thread-ID: 1087280
5 Beiträge
Anzeige
Leistungstexte in RE per SVERWEIS einfügen
Jana

Hallo Leute,
könnt ihr mir mal aus die Sprünge helfen...
Ich möchte Rechnungen in Excel schreiben und die benötigten Leistungstexte mittels SVERWEIS ergänzen.
Wie kann ich das Suchkriterium (eine Nummer) ausblenden, so daß es auf der Rechnung nicht erscheint, mir jedoch den Leistung...
18.08.2009 00:11:03
Thread-ID: 1096593
11 Beiträge
Tabelle in Intervallen per Mail verschicken
Universal

N`Abend zusammen! :-)
Ich würde gern meine Arbeit etwas erleichtern ... meine Kollegen und ich haben eine Excel-Tabelle, die jede Stunde mit Daten gefüllt wird. Wie ich Mails per VBA verschicken kann weiss ich. Leider fehlt mir aber das Wissen um die Tabelle in einem stündlichen Intervall a...
21.12.2009 23:03:13
Thread-ID: 1125480
7 Beiträge
Anzeige
Kopierten Text in E-Mail einfügen | Herbers Excel-Forum
Urmila
Hallo alle zusammen,
und schon habe ich eine andere Frage...
Mit dem folgenden Code generiere ich eine E-Mail im Excel Dim OutLookJob As Object, mymail As Object, month As Integer, year As Integer month = Format(Date, "MM") year = Format(Date, "YYYY") Set OutLookJob = CreateObject("Outlook....
13.01.2010 15:44:58
Thread-ID: 1129549
5 Beiträge
Einfügen in neuem Tabellenblatt
Space

Hallo,
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf Outlook funktioniert wunderbar. Die Werte die er dort heraus bekommt trägt er aber...
19.01.2010 14:06:41
Thread-ID: 1131048
7 Beiträge
Einfügen in neuem Tabellenblatt
Space

Hallo, leider war mein letzter Beitrag schon wieder zu ... hier nocheinmal die Problematik:
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf...
19.01.2010 14:59:16
Thread-ID: 1131070
2 Beiträge
TextBox - kontextMenü um einen Hyperlink einfügen
Frank

Hallo euch Allen und vorab frohe Ostern!!!
Meine Frage: Wie kann ich erreichen, dass wenn ich eine TextBox in einer UF ansteuere sich ein Kontextmenü öffnet, so dass ich dann in die TextBox einen Hyperlink eingeben kann. Wer weiß Rat?
Vorab Danke!!!
Gruß Frank H.!!!
31.03.2010 21:12:34
Thread-ID: 1149714
12 Beiträge
Anzeige
Termineintrag über Exceltabelle in Outlook
Lemmi

Hallo zusammen,
heute hat "Mann" soviele Vertäge und Angebote die es einem schwierig machen, alles im Bilck zubalten!
Ich möchte gerne wissen ob ich mir aus eine Excel- Datei eine Termineintrag in Outlook machen kann!
Also ich habe eine Musterdatei aufgebaut (https://www.herber.de/...
13.06.2010 15:51:22
Thread-ID: 1161664
13 Beiträge
Tabelle in Word einfügen
Carle

Hallo miteinander,
ich stehe vor der an und für sich einfachen Aufgabe (sollte man jedenfalls meinen) eine Tabelle in ein Word-Dokument einzubinden. Ich gehe wie folgt vor: Tabelle wird in Excel markiert und kopiert, dann wechsele ich in das Word-Dokument und gehe auf Bearbeiten/Inhalte ein...
03.01.2011 12:26:59
Thread-ID: 1193638
4 Beiträge
Tool um Tabellenausschnitt in Beitrag einfügen
Stefan

Hallo,
ich habe hier schon versucht einen Ausschnitt aus einer Tabelle einzufügen, weil es mir zur Erklärung meines Problems genauso effizient erschien wie eine Arbeitsmappe hochzuladen. Das hat nicht so geklappt wie ich mir das vorstellte. Jetzt habe ich gesehen, daß Mitarbeiter hier solch...
25.02.2011 11:40:53
Thread-ID: 1202928
5 Beiträge
Eine Tabelle in Code einfügen
David

Hallo,
ich hab dieses Problem hier vor kurzem schon gepostet, aber leider keine Antwort bekommen die funktioniert hat. In dem untenstehenden Code soll eine weitere tabelle "all_data_alt" hinzugefügt werden.
Diese Tabelle soll genauso wie die jetzige Tabelle "all_data_neu" durch das Makr...
11.03.2011 13:47:21
Thread-ID: 1205313
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige