Domino 9 und frühere Versionen > ND6: Entwicklung

Probleme mit Adressbuchprüfung bei automatischen e-mail versand

<< < (2/3) > >>

jBubbleBoy:
OK, aber das ist echt selten ;)
Ich nutze auch eine Funktion die über mail1.box bis mail9.box solange eine "mail.box" sucht bis eine gefunden wurde.
Bisher lief das ohne Probleme.


--- Code: ---Function getMailBox(server as String) As notesdatabase
Dim a%
Dim db As New NotesDatabase(server,"mail.box")
For a = 1 To 9
If db.IsOpen = False Then Set db = New notesdatabase(server,"mail" & a & ".box")
Next
Set getMailBox = db
End Function

--- Ende Code ---

koehlerbv:
@Blasenjunge: Genau das meinte ich damit  ;)

Bernhard

Cube:

@dima;

Das dürfte sogar mit Formelsprache gehen; mach' Dir ne Ansicht mit 2 Spalten ins names.nsf:

- LastName + ", " + FirstName  - sortiert, zum besseren Suchen
- FullName + "#" + MailDomain

dann einen Button ins WF-Dokument, wo Du Dir mit ner Picklist die 2 Spalte geben läßt
dann nur noch die Werte verteilen...

Mail := @Word(tmpString;"#";1);
Domäne := @Word(tmpString;"#";2);

etc...

Das sollte funktionieren

Ciao und schönes Wochenende; Tim

dima:
Könnt ihr mir ein Tip geben was ich falsch mache es will einfach net klappen

p.s.: kriege keine Fehlermeldung aber auch keine mail

Sub Senden(link As Notesdocument,Empfaenger As String, Betreff As String, Text As String)
   
   Dim session As New NotesSession
   Dim currentdb As NotesDatabase
   Dim mailsession As New NotesSession    
   Dim maildb As New NotesDatabase( "", "" )
   
   Set currentdb = session.CurrentDatabase
   Set maildb = getMailBox(currentdb.server)
   
   Set docMail  = maildb.CreateDocument
   
   docMail.Form = "Memo"
   docMail.From =mailsession.commonusername
   docMail.SendTo = Empfaenger
   docMail.Subject = Betreff
   docMail.PostedDate = Now()
   docMail.ComposedDate = Now()
   docMail.DeliveredDate = Now()
   Set mailbody = docMail.CreateRichTextItem( "Body" )
   
      ' Anrede einfügen
   Call mailbody.appendtext ( "Sehr geehrte Damen und Herren," )
   Call mailbody.addnewline (2)
   ' Text
   Call mailbody.appendtext (Text )
   ' Link
   
   Call mailbody.appenddoclink ( link, "Bitte klicken Sie auf den Link", "")
   
   
   
   
   Call mailbody.addnewline(4)
   Call mailbody.appendtext ( "Dies ist eine automatisch generierte Mail. Bitte antworten Sie nicht darauf." )
   
   Call docMail.save(True, False)
   
End Sub


nutze die getMailBox Funktion von jBubbleBoy

mfg dima

TRO:
liegt die DaBa, in der dieser Code ausgeführt wird eventuell lokal und nicht auf dem Server?


Thomas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete