Note: The other languages of the website are Google-translated. Back to English

Wie sende ich personalisierte Massen-E-Mails aus Excel über Outlook an eine Liste?

Ich habe beispielsweise den folgenden Datenbereich in einem Arbeitsblatt, das die Spalten Name, E-Mail-Adresse, Registrierungscode enthält, und möchte jetzt eine Nachricht mit einer personalisierten Begrüßung und einem eigenen Registrierungscode an die getrennten E-Mail-Adressen in Spalte A senden. Um dieses Problem zu lösen, können die folgenden Methoden hilfreich sein.

doc personalisierte E-Mails senden 1

Senden Sie personalisierte Massen-E-Mails mit der Seriendruckfunktion aus Excel an eine Liste

Senden Sie personalisierte Massen-E-Mails mit VBA-Code an eine Liste aus Excel

Senden Sie mithilfe von Kutools for Excel personalisierte Massen-E-Mails an eine Liste mit verschiedenen Anhängen


Pfeil blau rechte Blase Senden Sie personalisierte Massen-E-Mails mit der Seriendruckfunktion aus Excel an eine Liste

Mit den Worten Seriendruck Funktion können Sie diesen Job schnell und einfach beenden, bitte machen Sie mit den folgenden Schritten Schritt für Schritt:

1. Starten Sie ein neues leeres Word-Dokument und klicken Sie dann auf Mailings > Wählen Sie Empfänger aus > Verwenden Sie eine vorhandene Liste, siehe Screenshot:

doc personalisierte E-Mails senden 2

2. In dem Wählen Sie Datenquelle Wählen Sie im Fenster die Arbeitsmappe mit dem Datenbereich aus, den Sie verwenden möchten, und klicken Sie auf Offen Schaltfläche, siehe Screenshot:

doc personalisierte E-Mails senden 3

3. Im Kommen Wählen Sie Tabelle Wählen Sie im Dialogfeld das Arbeitsblatt mit dem gewünschten Datenbereich aus und klicken Sie dann auf OK Schaltfläche, siehe Screenshot:

doc personalisierte E-Mails senden 4

4. Das Hauptdokument der E-Mail-Nachricht und Ihre Adressliste wurden miteinander verbunden. Jetzt können Sie die Textnachricht bearbeiten und Platzhalter hinzufügen, die angeben, wo die eindeutigen Informationen in jeder Nachricht angezeigt werden.

(1.) Um den individuellen Begrüßungsnamen einzufügen, klicken Sie auf Mailings > Fügen Sie das Zusammenführungsfeld ein > Namewurde der personalisierte Name in die Nachricht eingefügt und der Feldname ist von umgeben «».

doc personalisierte E-Mails senden 5

(2.) Geben Sie Ihre Nachricht weiter ein und fügen Sie die ein Registrierungscode an der Stelle, an der Sie brauchen, siehe Screenshot:

doc personalisierte E-Mails senden 6

5. Nach dem Verfassen der Nachricht können Sie auf klicken Vorschau Ergebnisse unter dem Postsendung Registerkarte, um eine Vorschau der E-Mail-Nachrichten anzuzeigen und Änderungen vorzunehmen, bevor Sie die Zusammenführung tatsächlich abschließen.

6. Nachdem Sie sichergestellt haben, dass es kein Problem gibt, können Sie die E-Mails an die einzelnen Empfänger senden. Klicken Sie auf Mailings > Beenden & Zusammenführen > E-Mail-Nachricht senden, siehe Screenshot:

doc personalisierte E-Mails senden 7

7. Dann tauchte der auf Zusammenführen zu E-Mail Führen Sie im Dialogfeld die folgenden Vorgänge aus:

(1.) Aus dem Zu Dropdown-Liste, bitte wählen E-Mail-Addresse Säule;

(2.) Sie können das Thema in das Feld eingeben Betreff Zeilentextfeld;

(3.) Aus dem Datensätze senden Abschnitt auswählen Alles.

doc personalisierte E-Mails senden 8

8. Und dann klick OKWenn die E-Mails sofort mit ihrem eigenen Registrierungscode an separate Empfänger gesendet werden, können Sie nach dem Senden der E-Mails in Outlook sicherstellen, dass die E-Mails erfolgreich gesendet wurden.


Senden Sie personalisierte E-Mails an mehrere Empfänger mit unterschiedlichen Anhängen:

Mit Kutools for Excel's E-Mails senden Mit dieser Funktion können Sie bei Bedarf schnell personalisierte E-Mails mit verschiedenen Anhängen aus Excel über Outlook an mehrere Empfänger senden. Gleichzeitig können Sie die Nachrichten auch an eine bestimmte Person senden oder bcc.       Kutools für Excel jetzt herunterladen und kostenlos testen!

doc personalisierte E-Mails senden 18 1


Pfeil blau rechte Blase Senden Sie personalisierte Massen-E-Mails mit VBA-Code an eine Liste aus Excel

Mit Ausnahme der Seriendruckfunktion kann Ihnen der folgende VBA-Code ebenfalls einen Gefallen tun. Bitte tun Sie Folgendes:

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Senden Sie personalisierte Massen-E-Mails an eine Liste aus Excel:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, den Sie verwenden möchten. Siehe Screenshot:

doc personalisierte E-Mails senden 9

4. Und dann klick OK Wenn Sie auf die Schaltfläche klicken, werden die E-Mails nacheinander an separate Adressen mit ihrem individuellen Registrierungscode gesendet. Nach dem Senden der E-Mails können Sie in Outlook sicherstellen, dass die E-Mails erfolgreich gesendet wurden.

Hinweis: Im obigen Code können Sie den Betreff oder die Textnachricht nach Ihren Wünschen ändern.


Pfeil blau rechte Blase Senden Sie mithilfe von Kutools for Excel personalisierte Massen-E-Mails an eine Liste mit verschiedenen Anhängen

Wenn Sie Kutools for ExcelMit seinen E-Mails senden Mit dieser Funktion können Sie bei Bedarf schnell personalisierte E-Mails an mehrere Empfänger mit unterschiedlichen Anhängen senden.

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. 

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Klicken Sie Kutoolen Plus > E-Mails senden, siehe Screenshot:

2. In dem Senden Sie Emials Wählen Sie im Dialogfeld den Datenbereich aus, den Sie verwenden möchten, und geben Sie dann die Empfängeradressen, Anhänge und den Betreff nach Bedarf an (siehe Abbildung):

doc personalisierte E-Mails senden 9

3. Geben Sie im Bearbeitungsfeld die einzelnen Begrüßungsnamen ein, wählen Sie bitte Name Klicken Sie in der Dropdown-Liste auf und klicken Sie dann auf Platzhalter einfügen Informationen zum Einfügen der Namen in die Nachricht finden Sie im Screenshot:

doc personalisierte E-Mails senden 9

4. Geben Sie dann Ihren Nachrichtentext nach Bedarf in das Feld ein, siehe Screenshot:

doc personalisierte E-Mails senden 9

5. Wählen Sie nach Abschluss des E-Mail-Textes den gewünschten Sendemodus aus. Sie können ihn über Outlook oder Ihren angegebenen Server senden. Siehe Abbildung:

doc personalisierte E-Mails senden 9

Hinweis: Wenn Sie einen anderen Server verwenden möchten, klicken Sie auf Ausgehende Servereinstellungen Informationen zum Einstellen des Sendemodus finden Sie unter screesnhot:

doc personalisierte E-Mails senden 9

6. Endlich, klick Senden Klicken Sie auf die Schaltfläche zum Senden der E-Mails. Nach Abschluss wird ein Eingabeaufforderungsfeld angezeigt, das Sie an den Sendestatus erinnert. siehe screesnhot:

doc personalisierte E-Mails senden 9

Klicken Sie auf Download und kostenlose Testversion von Kutools for Excel Now!


Demo: Senden Sie personalisierte Massen-E-Mails über Outlook an eine Liste aus Excel

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!

In Verbindung stehender Artikel:

Wie sende ich E-Mails aus Excel über Outlook an mehrere Empfänger in einer Liste?


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (47)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dieser Code hat sehr gut funktioniert, vielen Dank dafür. Aber ich habe nur ein kleines Problem, ich versuche, den Code zu ändern, um die Zellen vorab zu bestimmen, in die ich die E-Mails aufnehmen und senden möchte, weil ich meine Excel-Datei so erstellt habe. Ich möchte das Auswahlfeld für ein bestimmtes Array von Zellen umschalten. Beispiel: Alle meine Daten werden zwischen A2:C6 behoben, sodass ich das Makro nicht erneut auswählen muss, wenn ich es ausführe. Vielen Dank für alles, was Sie oben erklärt haben
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Können Sie den Code ändern, um mehrere Dateien an eine E-Mail anzuhängen? Es wäre eine große Hilfe. Danke im Voraus.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ist es möglich, Code hinzuzufügen, damit er auch meine normale E-Mail-Signatur einzieht? Auch wenn ich meinen E-Mail-Bereich auswähle, habe ich meine Excel-Tabelle gefiltert, aber wenn ich das Makro ausführe, zieht es immer noch die versteckten Zeilen ein.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das wüsste ich auch gerne!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
wie man cc in den obigen Code einfügt
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Toller Weg

Ich muss Sie nur nach der Möglichkeit fragen, den Betreff jedes Mal basierend auf der E-Mail zu ändern?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Aziz,
Wenn Sie die Kutools für Excel anwenden, kann es Ihnen helfen, die Themen basierend auf den Zellenwerten einzufügen, Sie müssen nur die Betreffspaltenüberschrift im Dialogfeld auswählen, wie im folgenden Screenshot gezeigt:

Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Skyyang,

Ich habe versucht und versucht, meine E-Mail-Signatur zu erhalten, aber es scheint einfach nicht richtig zu sein! Haben Sie ein wenig Code, den ich hinzufügen kann, um dies zu erreichen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wahnsinns-Post, das ist eine Fälschung, und glauben Sie diesem Inhalt nicht
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Freund,
Das ist fantastisch, brauche eine Hilfe, ich muss jedes Mal eine andere PDF-Datei an eine andere E-Mail anhängen.
kann mir jemand bitte helfen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Skyyang,
Ich muss für jede Mail eine andere PDF-Datei anhängen. Kannst du mir bitte helfen??
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Arvind,
Die Kutools können Ihnen helfen, beim Senden von E-Mails mehrere verschiedene Anhänge hinzuzufügen.
Zuerst sollten Sie den Pfad der Anhänge in die Zellen einfügen und dann die Kutools anwenden, sehen Sie sich bitte den folgenden Screenshot an:
Hoffe es kann dir helfen, danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Skyyang,
Ich habe Ihren folgenden Code zum Senden von E-Mails verwendet und funktioniert perfekt. Gibt es irgendetwas, das Sie mir dabei helfen können, den Code zum Senden von PDF-Anhängen zu ändern?
Ich muss mehr als 100 E-Mails senden, daher ist es schwierig, jedes Mal eine Datei anzuhängen. Funktioniert Kutools gemäß dem angegebenen Pfad und sendet E-Mails automatisch?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Können Sie mir bei der Funktion attachment.add helfen? Mit Ihrem obigen VBA-Code muss ich den Anhang senden.
Ich kann Kutools nicht benutzen :(
Dieser Kommentar wurde vom Moderator auf der Website minimiert
wie kann man hier Leute cc schreiben?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Was ist, wenn ich Daten für viele Kunden habe und einige Kunden mehr als 1 Daten haben ... und ich möchte den Kunden keine separaten Mails senden, sondern vielleicht in einem tabellarischen Format in der E-Mail senden. Wie kann ich nur 1 E-Mail an einen Kunden senden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Steven, hast du einen Weg gefunden, dies zu erledigen. Wir können Ihnen mit einem einfachen Online-Webportal helfen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, hast du es gelöst?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte wissen, wie man es macht. Kannst du mir erzählen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank!!

Aber ich habe versucht, den Test zu machen, und es wird nichts an die E-Mail gesendet. Auch keine Fehlermeldung. Darf ich wissen, was passiert ist?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe eine Liste von E-Mail-Adressen in Excel, an die ich E-Mails senden muss. Betreff und Text befinden sich in Zellen neben der E-Mail-Adresse, und ich habe das folgende Skript, aber ich muss 100 E-Mails pro Stunde senden, wie ich Ihre Unterstützung erfreuen kann

Sub SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Set Mail_Object = CreateObject("Outlook.Application")
Für i = 2 bis lr
Mit Mail_Object.CreateItem(o)
.Betreff = Bereich("B" & i).Wert
.Bis = Bereich("A" & i).Wert

.Body = Bereich("C" & i).Wert
.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("I" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
.Senden

'.display 'Anzeige deaktivieren und Senden aktivieren, um automatisch zu senden
Ende mit
Weiter ich
MsgBox „E-Mail erfolgreich versendet“, 64
Application.DisplayAlerts = Falsch
Setzen Sie Mail_Object = nichts
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Hiba,
Unsere Kutools für Excel-E-Mails senden können Ihnen bei der Lösung Ihres Problems helfen. Bitte stellen Sie die Bedingungen wie im folgenden Screenshot gezeigt ein:
Mit dieser Funktion können Sie auch die CC- und BCC-Funktion anwenden und auch mehrere Anhänge einfügen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
HIi-Administrator


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di file pdf nya tdk terkirim .. terimakasih
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Aus irgendeinem Grund hat dieser Code es dort, wo er jede andere E-Mail in der Liste sendet. Gibt es einen Grund, warum es nicht jedes sendet? Ich habe den obigen Code direkt kopiert und nichts geändert
Dieser Kommentar wurde vom Moderator auf der Website minimiert
VBA-Code funktioniert gut, danke, aber wie fügt man Cc hinzu? Ich habe es versucht und bin gescheitert...
Dieser Kommentar wurde vom Moderator auf der Website minimiert
VBA-Code funktioniert gut, danke, aber wie fügt man Cc hinzu? Ich habe es versucht mit:


Dim xCc als Zeichenfolge
dann
xCc = xRg.Cells(i, 9) (die Adresse steht in der 9. Spalte)


und gescheitert...
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Jean,

Um Ihr Problem zu lösen, wenden Sie bitte den folgenden Code an: (Hinweis: Sie sollten die CC-Spalte in Spalte C hinzufügen)

#Wenn VBA7 und Win64 dann
Private Declare PtrSafe-Funktion ShellExecute Lib „shell32.dll“ Alias ​​„ShellExecuteA“ ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, _
ByVal lpFile als String, ByVal lpParameters als String, ByVal lpDirectory als String, _
ByVal nShowCmd As Long) As LongPtr
#Anders
Private Declare-Funktion ShellExecute Lib „shell32.dll“ Alias ​​„ShellExecuteA“ ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile als String, ByVal lpParameters als String, ByVal lpDirectory als String, _
ByVal nShowCmd As Long) As Long
#Ende Wenn
Sub SendenEMail()
Dim xEmail als Zeichenfolge
Dim xSubj als Zeichenfolge
Dim xMsg als Zeichenfolge
Dim xURL als Zeichenfolge
Dim i Als Ganzzahl
Dim k als Double
Dim xCell As Range
Dim xRg als Bereich
Dim xTxt als Zeichenfolge
Dim xCC als Zeichenfolge
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Adresse
Set xRg = Application.InputBox("Bitte wählen Sie den Datenbereich aus:", "Kutools for Excel", xTxt, , , , , 8)
Wenn xRg nichts ist, dann beenden Sie Sub
Wenn xRg.Columns.Count <> 4 Then
MsgBox " Regionaler Formatfehler, bitte überprüfen", , "Kutools for Excel"
Exit Sub
End If
Für i = 1 bis xRg.Rows.Count
xEmail = xRg.Zellen(i, 2)
xCC = xRg.Zellen(i, 3)
xSubj = "Ihr Registrierungscode"
xMsg = ""
xMsg = xMsg & "Dear" & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & " Dies ist Ihr Registrierungscode "
xMsg = xMsg & xRg.Cells(i, 4).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & " Bitte versuchen Sie es und freuen uns über Ihr Feedback! " & vbCrLf
xMsg = xMsg & "Skyyang"
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
xURL = "mailto:" & xEmail & "?cc=" & xCC & "&subject=" & xSubj & "&body=" & xMsg
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
Application.Wait (Jetzt + TimeValue("0:00:02"))
Application.SendKeys "%s"
Weiter
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe den oben genannten VBA-Code unter "Personalisierte Massen-E-Mails an eine Liste aus Excel mit VBA-Code senden" verwendet. Ich wollte wissen, ob ich eine E-Mail an bestimmte Personen senden könnte, die auf der Grundlage von Excel benachrichtigt werden müssen, und mich auffordert, Erinnerungen an diejenigen zu senden, die bevorstehende auslaufende Verträge haben? Ich kann Excel nicht dazu bringen, die E-Mails zu versenden, und ich weiß, dass es am Code selbst liegt. Kann mir bitte jemand helfen, dieses Problem zu lösen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte die E-Mails mit eindeutiger Betreffzeile senden, wie kann ich das mit diesem VBA machen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo zusammen!

Ich habe eine Liste mit E-Mails in einem Blatt und den E-Mail-Entwurf in einem anderen.
Ich benötige einen Code, um den E-Mail-Entwurf aus Blatt 2 automatisch an alle 5 Mitglieder in der Liste in Blatt 1 zu senden.
Sobald die ersten 5 gesendet wurden, sollte der Code sie in einer neuen dedizierten Spalte als „Gesendet“ kennzeichnen und dann 60 Sekunden warten, bevor der nächste Satz von 5 E-Mails versendet wird.
Der Code sollte bis zum Ende der gesamten Liste ausgeführt werden.

Der Code kann Outlook verwenden, um die E-Mails aus dem Standardprofil in Outlook zu versenden.

Bitte helfen Sie.

Lassen Sie es mich wissen, falls Sie weitere Erläuterungen benötigen
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL