Domino 9 und frühere Versionen > ND6: Entwicklung

Mail an 3000Adressen !!

<< < (3/3)

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

Navigation

[0] Themen-Index

[*] Vorherige Sete