Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Serien-E-mails

Serien-E-mails
14.07.2004 14:54:30
Steffi
Hallo Excel-Profis,
ich möchte gerne mit Excel und Outlook Serien-E-mails erstellen.
Ich habe eine Excel-Liste mit Namen, der e-mail-Adresse und einem individuellen Rechnungsbetrag, den jeder zu bezahlen hat. Nun könnte ich ganz einfach über die Funktion Seriendruck-Manager in Word Serienbriefe erstellen, was auch kein Problem ist. Ich möchte aber keine Postserienbriefe, sondern Serien-e-mails. Kann man die Programme Excel und Outlook genauso verknüpfen wie Excel mit Word? Oder wie kann ich die Serienbriefe, die ich mit Word erstellen kann, automatisch in e-mails umwandeln, ohne jedes Mal irgendwo auf eine Schaltfläche zu drücken? Muß ich dafür irgendwelche Makros schreiben? Dabei sollten in den mails direkt der Name, der jeweilige Rechnungsbetrag und die dazugehörige e-mail-Adresse richtig erscheinen.
Wäre euch echt sehr dankbar, wenn ihr mir helfen könntet!!!
Liebe Grüße, Steffi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Serien-E-mails
hannes
In Word gibt es eine solche (unter Serienbrief) Einstellung welche dies durchführt.
Frag mich aber jetzt nicht welche.
Habe ich gestern in irgendeinem WordForum im Archiv gesehen.
Schau da mal nach.
Mehr kann ICH dir da nicht helfen.
Grüße aus Brüssel
hannes
AW: Serien-E-mails
15.07.2004 08:23:44
GünterP
So wie im beigefügten Excel-Macro sollte es funktionieren!
-------------------------------------------------------------

Private Sub emailsenden()
' Macro erwartet in aktiver Tabelle in der ersten Spalte
' die Mailadresse und in der zweiten Spalte den Betrag
' Achtung: Nicht vergessen im Menü unter Extras/Verweise
'          die Microsoft Outlook-Komponenten zu aktivieren
Dim myolapp
Dim olNamespace
Dim myItem
Dim myRecipient
Set myolapp = CreateObject("Outlook.Application")
Set olNamespace = myolapp.GetNamespace("MAPI")
For i = 2 To ActiveSheet.UsedRange.Rows.Count
Set myItem = myolapp.CreateItem(olMailItem)
Adresse = Cells(i, 1)
Betrag = Cells(i, 2)
text = "Ihr Rechnungsbetrag " & Betrag
Set myRecipient = myItem.Recipients.Add(Adresse) 'Empfänger
myItem.Subject = "Rechnung"                      'Betreff
myItem.body = text                               'Mail-Text
myItem.Send
Set myItem = Nothing
Next i
End Sub

-------------------------------------------------------------
lg
Günter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige