Domino 9 und frühere Versionen > ND6: Entwicklung

Mail aus DB an viele Empfänger senden

<< < (2/5) > >>

ata:
... es stellt sich die Frage, ob du aus einem Adressbuch agierst, und ob der User über ein eigenes Mailkonto verfügt.

Agierst du aus einem privaten Adressbuch, dann kannst du den angesprochenen Agenten verwenden. Bist du aber in einer selbstgestrickten Datenbank, dann musst du einiges implementieren, um den Agenten 1:1 zu verwenden...

Zudem ist es in Notes nicht zwingend, daß man eine Mailbox hat. So wie ich dich verstehe soll ein Dokument in der Mail-DB erstellt werden und dort als Kopie abgelegt werden. Es gibt ja auch die Möglichkeit eine Mail zu generieren, ohne daß davon eine Spur in der eigenen Mail-DB verbleibt - nämlich ein neues Dokument per LS erstellen und im Frontend öffnen. Als Bassis-DB kann man die Mail-DB verwenden, oder in der selbstgestrickten DB eine Maske dafür vorhalten...

Toni

iukhdh:
Es handelt sich um eine selbstgestrickte Datenbank. Ich hab mir den genannten Agenten grad mal angeschaut und werde versuchen ihn mir anzupassen.

Es soll, wie du richtig verstanden hast, einfach ein neues Dokument in der Mail DB erstellt werden, eine eigene Maske erscheint mir unnötig.

Ich versuch mal mein Glück und melde mit ggf. wieder.

Danke für die Hinweise

m3:
OK, sorry. Da hatte ich etwas mißverstanden.

Wenn Du ein SICHTBARES Mail aufmachen willst, hast Du zwei Möglichkeiten
a) über die GUI-KLassen die Mail-DB öffnen und dort im GUI ein neues Mail aufmachen (und die Felder befüllen)

b) Im Backend in der Mail-DB einen Draft erstellen und diesen dann über die GUI-Funktionen öffnen.

Für beides sollte es bereits Beispiel hier geben, aber frag ruhig, wenn was unklar ist.

iukhdh:
Bitte um weitere Hilfe...

ich habe mir anhand der Tipps oben mal folgenden Code zusammengestupft:


--- Zitat ---Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim maildb As NotesDatabase
   Dim mailnote As NotesDocument
   Dim x As Integer
   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   
   'Abfrage ob überhaupt ein Dokument gewählt wurde
   If Not collection Is Nothing Then
      If (collection.Count = 0) Then
         Messagebox "Es wurden keine Dokumente ausgewählt.",0,"Fehler"
         Exit Sub
      End If
   Else
      Exit Sub
   End If
   
   'Hier werden die E-Mail Adressen gesammelt
   Redim SendtoNames(collection.Count-1)
   For x = 1 To collection.Count
      Set doc = Collection.GetNthDocument(x)
      SendtoNames(counter)=doc.Email
      counter=counter+1
   Next
   
   'Hier wird die Mail geöffnet
   Set maildb = New NotesDatabase("","")  '********hier kommt der Fehler
   Set mailnote = New NotesDocument(maildb)
   mailnote.Sendto = SendtoNames
   mailnote.Form ="Memo"
   mailnote.Logo=profile.DefaultLogo(0)
   mailnote.Principal = profile.Owner(0)
   
   Call ws.EditDocument(True,mailnote)
   
   
End Sub
--- Ende Zitat ---

Das mit dem Mail öffnen klappt aber noch nicht so recht, es kommt "Database has not opened yet".
Erstens blick ich nicht so ganz was der Fehler mir sagt, zweitens bin ich auch noch nicht so ganz sicher ob das mit dem Mail öffnen so klappen könnte.

Was meint ihr dazu?

m3:
Na welche Mail-DB er aufmachen soll, musst Du ihm schon sagen. ;)
Also Server und Dateiname.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete