Mail an 3000Adressen !!

[wrh$]

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...

[eknori]

setze die Empfänger ins BCC ...

[koehlerbv]

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

[wrh$]

@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....

[eknori]

evtl ist das noch was http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/c45572e203db862385256915006a59f7?OpenDocument&Highlight=0,Bulk

[eknori]

sorry, meinte diesen Link hier

http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/949c837d994fa25d85256a930054e12a?OpenDocument&Highlight=0,mass

[wrh$]

Hallo,

jo danke für den link. Ne Frage....wieviele Zeichen groß darf denn das Feld SendTo werden?

[Simsala]

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. 

[wrh$]

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

[Simsala]

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*

[m3]

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 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.

[Simsala]

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
   

[wrh$]

jo vielen dank.....!!!