Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: wrh$ am 26.10.05 - 17:41:11
-
Hallo Leutz,
ich denke ihr könnt mir ganz fix behilich sein in der Sache. Ich habe eine einfache Maske erstellt, mit der man in der Lage ist aus unseren Kontakt Management die Adressen von bestimmten Kunden auszuwählen und ein entsprechenden Text zu schreiben und als Rundschreiben zu mailen. Mein Problem ist nun, es werden wohl sicher an die 3000 Empfänger werden also 3000 Mailadressen und diese werden alle im Feld Empfänger zu sehen sein. Nun wenn die Empfänger die Mail erhalten werden sie sicher eine mega lange Adressenliste vor sich haben oder?? Nicht nur das, sie wissen an wenn wir Mails verschickt haben. Wie kann ich diese 3000 Adressen durch ein Alias ersetzen.....so dass nicht 3000x Mailadressen zu sehen sind sondern halt nur z.B. <Kunden>.
danke und hoff es wird möglich sein...
-
setze die Empfänger ins BCC ...
-
Abgesehen davon bekommt man 3000 Empfängeradressen eher nicht in das Empfängerfeld, es sei denn, die durchschnittliche Zeichenzahl pro Mailadresse ist 10.
Du musst das SendTo bzw. BCC in Portionen bestücken - sprich: Das müssen mehrere Mails werden.
Bernhard
-
@eknori, aha.....also als BCC ist schon mal eine gute lösung.
@koehlerbv, du meinst die komplette liste in von mir aus 20 isten teilen? na das wird ein spass....
-
evtl ist das noch was http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/c45572e203db862385256915006a59f7?OpenDocument&Highlight=0,Bulk
-
sorry, meinte diesen Link hier
http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/949c837d994fa25d85256a930054e12a?OpenDocument&Highlight=0,mass
-
Hallo,
jo danke für den link. Ne Frage....wieviele Zeichen groß darf denn das Feld SendTo werden?
-
Wieso verschickst du die Mails nicht einzeln ??
ein kleines Script und dann je empfänger eine Mail raushauen. Das geht ganz gut.
In deinem Script musst du nur ein Maildocument aufbauen mit allem was du so brauchst. und dann gehst du die Liste der empfänger durch trägst jeden einzeln ins Feld SendTo ein und machst dann einen Send dazu. Dann ist dir auch die Anzahl vollkommen wurscht.
Das ganze kannst du dann später verfeinern in dem Du die Adressen speziellen Kategorien zuordnest.
Also Z.B. alle "Geschäftsführer" oder "Marketingleute" In deiner Rundschreibenmaske gibst du dann diese Schlüsselwörter vor die dann zur Laufzeit ausgewertet werden.
Komme gerade nicht an das Script ran, da mein Notesclient blockiert ist, wenn du willst kann ich dir mal ein Musterscript hier reinposten.
-
Hallo Simsala,
ja vielen dank für die idee...ist eigentlich ganz gut!! also ich werd anfangen die idee zu verwirklichen..., eventuell wäre ich natürlich sehr dankbar diesen scrip zu sehen..! danke nochmals...bis dann
-
noch 2.000 dokumente dann ist mein Agent fertig und ich kann die ID wechseln. Dann kann ich dir den Code hier reinstellen ist echt recht simpel und mit der neuen "Agent im Hintergrund" Methode geht das echt ganz gut. Der USer kann in Ruhe weiterarbeiten. Naja nur ID Wechseln geht wohl nicht *grins*
-
Nur eine Anmerkung: Bei einer derartigen Menge an Mails kann es passieren, dass einige Mailprovider ihre Server zu machen und die Mails nicht mehr annehmen. Vor allem AOL, ... sind dafür berühmt/berüchtigt.
Falls Ihr das öfter macht, würd ich ev. einen externen Dienstleiser hinzuzieghen oder spezielle Lösungen wie emarsys (http://www.emarsys.com/)verwenden - die haben auch den direkten Kontakt zu den großen Mailprovidern und bringen daher fast alle Mails durch.
Und nein, ich bekomme von denen keine Provision.
-
So das ist eine Action in einem "Maildokument" In dem Dokument gibt es ein Bodyfeld und ein subject feld sowie noch ein Feld mit Verteiler angaben. Anhand des verteilers wird gefiltert wer Post bekommt. wie gesagt recht simpel tut aber hier bei uns seinen dienst und das seit Jahren ganz vernünftig. !!
Dim ws As New notesuiworkspace
Dim s As New notessession
Dim uidoc As notesuidocument
Dim db As notesdatabase
Dim doccoll As notesdocumentcollection
Dim view As notesview
Dim PERS_view As notesview
Dim empfdoc As notesdocument
Dim Maildoc As notesdocument
Dim doc As notesdocument
Dim PERS_doc As notesdocument
Dim item As NotesItem
' Dim rtitem As NotesrichtextItem
Dim rtitem As NotesItem
Dim Mailadressen List As String
Dim anz As Integer
Dim flag As Variant
Dim x As Variant
Set uidoc = ws.currentdocument
Call uidoc.Save
Set doc = uidoc.document
doc.RUND_SEND = Now
Set db = s.currentdatabase
Set view = db.getview("LUPERSONEN")
Set PERS_view = db.getview("PERSGRU")
Set Maildoc = Db.CreateDocument
Maildoc.from = doc.SendFrom(0)
Maildoc.Subject = doc.Subject(0)
Set rtitem = DOC.GetFirstItem( "Body" )
Call rtitem.CopyItemToDocument( Maildoc, "Body" )
Forall i In Doc.VERTEILER
Set DocColl = View.GetAllDocumentsByKey(i ,True )
Set empfdoc = doccoll.getfirstdocument
For x = 1 To doccoll.count
If Iselement(Mailadressen(empfdoc.MailAddress(0))) = False Then
Mailadressen(empfdoc.MailAddress(0)) = empfdoc.MailAddress(0)
Maildoc.SendTo = empfdoc.MailAddress(0)
On Error Resume Next
Call Maildoc.Send( False )
If Err = lserr_notes_no_match Then
Msgbox("Empfänger nicht gefunden: " & I)
End If
On Error Goto 0
Print "Email senden an: " & empfdoc.MailAddress(0)
End If
Set empfdoc = doccoll.getnextdocument(empfdoc)
Next
End Forall
-
jo vielen dank.....!!!