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

Emails per Knopfdruck senden

Forumthread: Emails per Knopfdruck senden

Emails per Knopfdruck senden
01.05.2020 10:08:25
Ralf
Hallo Gemeinde,
Ich bin mal wider an den grenzen meiner Fähigkeiten.
Ich würde gern Emails per Knopfdruck senden.
Dazu soll sich ein Fenster öffnen wo 3 Infos aus 3 Zellen aus einer Zeile schon eingetragen sind.
(Text1,text2,text3)
Dazu sollen noch ein paar Einträge im Popup möglich sein.
https:\/\/www.herber.de/bbs/user/137172.xlsm
Gruß Ralf
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Emails per Knopfdruck senden
01.05.2020 10:49:22
Regina
hallo Ralf,
erstmal ein paar Nachfragen:
- Willst Du wirklich für jede Zeile eine Schaltfläche generieren? Mein Vorschlag: Man könnte den Aufruf des UserForm beispielweise auf das Doppelklick-EReignis in der Spalte legen, die aktuelle Zeile dann auslesen und so die Daten ermitteln.
- Soll die Email immer an die gleiche Adresse gesendet werden, oder werden in den Zeilen später auch Mailadressen hinterlegt? Wenn ja, wo?
- Sollen die Datem aus dem UserForm in die Mail übernommnen werden? In den Text oder in den Betreff?
- Arbeitest Du mit Outlook als Mail-Programm?
Gruß Regina
Anzeige
AW: Emails per Knopfdruck senden
01.05.2020 11:20:03
Ralf
Hallo Regina,
"Willst Du wirklich für jede Zeile eine Schaltfläche generieren? Mein Vorschlag: Man könnte den Aufruf des UserForm beispielweise auf das Doppelklick-EReignis in der Spalte legen, die aktuelle Zeile dann auslesen und so die Daten ermitteln" wenn das geht!? ja wäre mir sogar lieber
"Soll die Email immer an die gleiche Adresse gesendet werden, oder werden in den Zeilen später auch Mailadressen hinterlegt? Wenn ja, wo?" geht immer an die selbe e-mail.
"Sollen die Datem aus dem UserForm in die Mail übernommnen werden? In den Text oder in den Betreff?"
ja als Betreff text1 und die restlichen Sachen in die Mail.
"Arbeitest Du mit Outlook als Mail-Programm?"
Ja , aber das outlook soll dabei nicht aufgehen.
Gruß Ralf
Anzeige
AW: Emails per Knopfdruck senden
01.05.2020 10:49:58
ChrisL
Hi Ralf
Damit du nicht für jede Zeile ein eigenes Makro und Button einfügen musst, würde ich das Doppelklick-Ereignis verwenden.
Modul Tabelle1:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call UFAnzeigen(Target.Row)
Cancel = True
End Sub


Private Sub UFAnzeigen(lngZeile As Long)
Load Test
With Tabelle1
Test.Label1 = .Cells(lngZeile, 1)
Test.Label2 = .Cells(lngZeile, 2)
Test.Label3 = .Cells(lngZeile, 3)
End With
Test.Show
End Sub

Modul Userform:
Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink "mailto:mail@mail.com?title=Ein Titel&Subject=" & Label1 & _
"&Body=" & Label2 & "%0D%0A" & "Menge: " & TextBox3
End Sub
cu
Chris
Anzeige
AW: Emails per Knopfdruck senden
01.05.2020 11:31:57
Ralf
danke Chris
Im popup sollen noch ein paar Einträge möglich sein und das email Programm soll sich nicht öffnen.
hab jetzt mal alles eingefügt, kommt aber ein Fehler.
bleibt hier stehen"Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)!"
Gruß Ralf
AW: Emails per Knopfdruck senden
01.05.2020 11:55:12
ChrisL
Hi Ralf
Wer lesen kann ist im Vorteil. Doppelklick, Modul Tabelle1...
Aber OK, wenn du unbedingt Buttons rumschieben möchtest, dann so:
Sub Schaltfläche1_Klicken()
Call UFAnzeigen(2)
End Sub


Sub Schaltfläche2_Klicken()
Call UFAnzeigen(3)
End Sub


Sub Schaltfläche3_Klicken()
Call UFAnzeigen(4)
End Sub


Private Sub UFAnzeigen(lngZeile As Long)
Load Test
With Tabelle1
Test.Label1 = .Cells(lngZeile, 1)
Test.Label2 = .Cells(lngZeile, 2)
Test.Label3 = .Cells(lngZeile, 3)
End With
Test.Show
End Sub
cu
Chris
Anzeige
AW: Emails per Knopfdruck senden
01.05.2020 18:04:56
ChrisL
Hi Ralf
Sorry für meinen schnippischen Kommentar. Aber du müsstest Code 1 wirklich nur ins Modul von Tabelle1 kopieren und Doppelklicken.
Die vorgeschlagene MailTo-Variante ist zwar unabhängig vom Mail-Programm, aber versteckt im Hintergrund wird die Mail nicht verschickt.
Für Outlook irgendwie sowas...
https://www.vba-hexerei.de/2017/09/15/eine-e-mail-versenden-von-excel-mit-outlook/
cu
Chris
Anzeige
AW: Emails per Knopfdruck senden
02.05.2020 00:24:53
Ralf
Danke, hab mich einfach zu blöd angestellt.
Werd jetzt mal versuchen das ganze mit Outlook zum laufen zu bringen.
Gruß Ralf
;

Forumthreads zu verwandten Themen

E-Mailversand mit Anhang
Timo

Hallo ich benutze folgenden Code um mir wenn in Spalte C ein Ja steht, eine Mail an die Mailadresse aus Spalte A zu senden! Ich hab alles in einer Userform! Wo sich auch die Listbox1 befindet wo ich den oder die Dateipfad(e) für den Anhang stehen habe!
Wenn ich meine Schleife jetzt durchlau...
11.11.2008 15:07:00
Thread-ID: 1023575
2 Beiträge
Emails an mehrere Empfänger mit Dateinhalten
Julia

Liebes Forum,
Ich wende mich mit der folgenden Bitte an Euch:
In meiner Excel-Datei habe ich einen Code geschrieben, mit dem ich eine Lotus-Notes-EMail an eine bestimmte EMail-Adresse und mit einem bestimmten Inhalt verschicken kann.
Die Datei https://www.herber.de/bbs/user/58345.xl...
13.01.2009 17:14:00
Thread-ID: 1039317
3 Beiträge
Anzeige
excel tabellenblatt mit outlook versenden
Hansi

Bitte um Hilfe - ich habe ein VBA Scrip zum versenden einzelner Tabellenblätter:
Sub Blatt_senden() Sheets("NAME").Copy ActiveWorkbook.SendMail "PERSON@PROVIDER", "Aktuelle Zahlen" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True End Sub
Wie kann...
19.02.2009 10:00:00
Thread-ID: 1052006
5 Beiträge
Tabelle per Mail senden
And

Hallo,
Habe aus dem Archiv folgenden Code:
Sub Blattsenden() Sheets("Tabelle1").Copy On Error Resume Next ActiveWorkbook.SendMail Recipients:="Otto@gmx.de", Subject:="Testmail" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True If Err.Number > 0 T...
19.03.2009 11:01:22
Thread-ID: 1061745
9 Beiträge
excel-datei per email versenden
meixner

Hallo zusammen,
Habe ein Makro, dass eine Excel - Datei nach Aufmachen aktualisiert und dann per Email versendet, wenn ich dies anklicke.
Möchte, dass um eine bestimmte Uhrzeit z.B. 17.00 Uhr die Datei automatisch sich aktualisiert und versendet wird.
Habt ihr eine Idee?
wsZiel....
25.03.2009 18:13:18
Thread-ID: 1063913
2 Beiträge
Anzeige
e-Mail-Versand mit PDF-Anhang
kutzmutz

Hallo nochmal,
ich hab noch ein Problem mit dem eMail-Versand.
Ich generiere mir eine Liste. Diese will ich als PDF-Anhang in einer e-Mail verschicken. Der Macro-Rekoder hat mir dazu folgendes geliefert:
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\...
06.06.2009 16:06:45
Thread-ID: 1079612
2 Beiträge
Tabellenblatt per Mail versenden
Sandra

Hallo zusammen,
vor lauter Bäumen habe ich nix im Archiv gefunden (irgendetwas passte nie). Vielleicht hat ja jemand von Euch ein derartiges Makro schon einmal gemacht.
Ich möchte aus einer Datei ein Makro starten, was folgendes macht:
Ein Tabellenblatt dieser geöffneten Datei soll...
12.06.2009 15:45:33
Thread-ID: 1081014
4 Beiträge
Anzeige
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:47:56
Thread-ID: 1084609
2 Beiträge
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:32:33
Thread-ID: 1084612
7 Beiträge
Anzeige
Arbeitsmappe per Mail versenden
massimo17

Hallo,
ich möchte eine Arbeitsmappe per Mail versenden.
Folgendes Vorgehen ist geplant:
1. Der User erhält einen Fragebogen in EXCEL-Format zum ausfüllen
2. Nach erfolgreichem ausfüllen, soll er auf einen Knopf drücken der die ausgefüllte Mappe versendet
Bei mir tritt das P...
10.11.2009 16:52:09
Thread-ID: 1115943
4 Beiträge
Email per VBA versenden
Armin

Hallo,
ich habe folgende Frage zum Versenden einer E-Mail per VBA:
1. Es soll eine Mail mit eigenem Text, Betreffzeile und Vorgabe der Mail-Adresse erzeugt werden .
2. In Outlook soll nur das Mail-Fenster mit dem Text etc. angezeigt werden. Kein automatischer Versand der Email.
...
23.11.2009 12:18:27
Thread-ID: 1119417
10 Beiträge
Email mit Anhang, falls Anhang verfügbar
Thomas

Hallo zusammen,
ich hänge gerade wieder an einer Stelle.
Ich habe ein Makro, welches vollautomatisch täglich Emails aus Excel mit 2 pdf-Dateien im Anhang versendet. Es werden ca. 50 Emails verschickt. Jede Mail an unterschiedliche Empfänger und mit unterschieldlichen pdf - Anhängen. Die...
02.12.2009 08:53:16
Thread-ID: 1121328
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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