Office: (Office 2007) Lotus Notes Serienmail basierend auf Excelfile

Hallo zusammen,

ich suche einen Weg, wie ich personalisierte Serienmails mit Lotus Notes auf Basis einer Excel Adressliste erstellen kann.

Bin für jeden Tipp dankbar, da ich das ganze recht zeitnah abwickeln muss.

Dank schon mal im Voraus!

Steffen

:)

 

Hallo Steffen,

muss es zwingend Lotus Notes sein, d.h. muss der Versand anschließend in Lotus Notes dokumentiert sein? Falls nein, (Serien-) eMails lassen sich aus Excel heraus auch ohne Mailprogramm versenden. Eine Beschreibung (in englisch) findest du unter Excel Automation - Ron de Bruin.

Gruß Ingolf

 

Hi,

hier mal einen Basiscode:

Code:

 

\@ingolf: danke für den tipp, aber es muss unbedingt über notes laufen.

@Jürgen: vielen dank für den code. bin im schreiben von makros bzw. programmieren überhaupt nicht bewandert.... habe deinen code in das visual basic textfeld (extras/makros/erstellen) eingefügt, bekomme aber die fehlermeldung:

"Sub oder Function nicht definiert"

"Sub Mail_Senden()" ist dann gelb unterlegt.

was mache ich falsch?

 

Hi,

mir ist da ein kleiner Fehler unterlaufen, die erste Sub muss natürlich den gleichen Namen haben, wie sie in der zweiten Sub aufgerufen wird.

Code:

 

vielen dank jürgen. habs auch direkt geändert und konnte eine mail verschicken - an die adresse, die ich unten zum test eingefügt hatte.

aber wie sieht es mit der serienfunktion aus? was muss ich machen, damit er die mail an alle adressen aus der liste verschickt?

 

Hi,

da ich Deine Liste nicht kenne, hier mal ein einfaches Beispiel:

Code:

 

hey jürgen, vielen vielen dank! es funktioniert (musste lediglich zelle gegen cell ersetzen).

weiß noch jemand, was man noch verändern muss, damit die gesendeten mails im notes postausgang zu sehen sind?

 

Hi,

doc.SAVEMESSAGEONSEND = 1 oder true

kann ich aber im Moment nicht testen, da ich kein Notes zur Verfügung habe und erst wieder am Montag in die Firma komme.

 

hallo zusammen, zunächst mal vielen dank für die zahlreichen tipps bezüglich meiner serienmail. jede mail adresse aus der spalte d bekommt eine mail. aber wie kann ich anrede (spalte a), name (spalte b) usw. personalisieren?

Sub Mail_Senden()
'Für jede Zelle in Bereich d2 bis zur letzen belegten Zelle in Spalte d wird eine Mail versandt.
Dim Cell As Range
For Each Cell In Range("d2:d" & Cells(Rows.Count, "d").End(xlUp).Row)
If Cell "" Then Call LotusMail(Cell.Value, "", Range("a2").Text & " " & Range("b2").Text & " " & Range("c2").Text & "," & Range("g2").Text & Range("f2").Text & Range("h2").Text)
Next
End Sub

 

nach langem hin und her, hab ich ne lösung gefunden. vielleicht kann das der ein oder ander brauchen:

Sub Mail_Senden()
'Für jede Zelle in Bereich d2 bis zur letzen belegten Zelle in Spalte d wird eine Mail versandt.
Dim Cell As Range
For Each Cell In Range("d2:d" & Cells(Rows.Count, "d").End(xlUp).Row)
If Cell "" Then Call LotusMail(Cell.Value, "", Cell(1, -2) & " " & Cell(1, -1) & " " & Cell(1, 0) & "," & Range("g2").Text & Cell(1, 2) & Range("h2").Text)
Next
End Sub

 

Weiss jemand wie ich da jetzt noch einen Absatz, oder auch Leerzeilen bspw. zwischen die Anrede und den restlichen Text bekomme?

Vielen Dank schon mal im voraus

 

Zum Verknüpfen das Ampersand-Zeichen(&) verwenden.
Für einen Zeilenumbruch vbLf verwenden

"Hallo Leute" & vbLf & vbLf & _
"Anbei das Formular für die neue Installation." & vbLf & _
"Bitte Weiterbearbeitung sicher stellen." & vbLf & vbLf & _
"Bei Fragen stehe ich gerne zur Verfügung. " & _
"" & vbLf & vbLf & _
"Grüsse" & vbLf & vbLf & _
""

 

Hallo errorist-

ich versuche seit Tagen, mir diese Tipps zunutze zu machen- wir haben hier im Büro die gleiche Aufgabenstellung. personalisierte Sereinmails per Lotus Notes, Quelle ist Excel.

ich bekomme allerdings die Fehlermeldung: sub oder function not defined.
Call LotusMail ist dann blau unterlegt.

Ich bin bisher nur ein passiver VBA-Nutzer, das heißt, ich kann mir solche Tipps kopieren und nutzen, bin aber des Programmierens überhaupt nicht mächtig.
Gibt es einen Tipp, was da falsch ist?

Danke an alle, die eine Idee haben.

 

Hallo Forensucher,

kopiere den Code nicht aus der ersten Antwort von Backowe - da steckt noch ein Fehler drin - sondern aus seiner zweiten Antwort.

Gruß Ingolf