Domino 9 und frühere Versionen > Entwicklung

VB6 und Lotus Notes - E-Mail Adressen

(1/2) > >>

Mortione:
Hallo zusammen,
ich habe folgendes Problem, ich generier aus einem VB6 Programm eine E-Mail, in dieser E-Mail wird zur Zeit eine Email-Adresse und eine Kopie erzeugt. Alles ok.
Jetzt muß ich aber die E-Mail an drei Adressen schicken.
Ic habe folgendes versucht:
Mail_To = "Adresse1@test.de" & ", " &  "Adresse2@test.de" & ",  “ & "Adresse3@test.de"
Es funktioniert so leider nicht, der String wird als eine Adresse interpretiert. Kann mir jemand einen Tipp geben ?
Danke im voraus.

koehlerbv:
Das SendTo-Item des NotesDocuments erwartet bei mehreren Empfängern die Zuweisung eines Arrays.

HTH,
Bernhard

Mortione:
Hallo Bernd,
hast Du ein kleines Beispiel. So weit bin ich.

Public Sub SendNotesMail(Subject As String, Recipient As String, BodyText As String, SaveIt As Boolean)
'Variablen Dimensionieren, die benötigt werden, um das Mail zu senden
    Dim Maildb As Object 'Die Datenbank
    Dim UserName As String 'Der Benutzername
    Dim MailDbName As String 'Der Datenbankname
    Dim MailDoc As Object 'Das Maildokument selbst
    Dim AttachME As Object 'Der Anhang (Richtext)
    Dim Session As Object 'Die Notes Session
    Dim EmbedObj As Object 'Ein eingebettetes Objekt (Anhang)
   
    Set Session = CreateObject("Notes.NotesSession")
   
     Set Maildb = Session.GETDATABASE("", MailDbName)
     If Maildb.isOpen = True Then
          'Fertig zum mailen!
     Else
         Maildb.OPENMAIL
     End If
   
    'Ein neues Maildokument erstellen
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.Subject = Subject
    MailDoc.body = BodyText
   
   
    MailDoc.SAVEMESSAGEONSEND = SaveIt
   
    Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1")
   
    'Lotus öffnen
    Dim Workspace As Object
    Set Workspace = CreateObject("Notes.NotesUIWorkspace")
    Call Workspace.EditDocument(True, MailDoc).GotoField("Body")

   
    'Aufräumen
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
End Sub

Private Sub Command1_Click()
    SendNotesMail Text1, Text3, Text4, Check1
End Sub


Danke im voraus

koehlerbv:
Ein Beispiel steht in der DesignerHelp - dort wird auch gezeigt, wie man an drei Personen sendet.

Ansonsten ist es ganz einfach: Array of Strings bilden, die Elemente mit den Empfänger füllen und das Array dem SendTo-Item zuweisen.

Bernhard

LotusMen:
Hallo Frank,

deine Anfrage bzw. Problem habe ich schon mehrmals realisiert. Hierbei übertrage ich über VBA (Word oder Excel) mit einer Aktion SubClick mehrere E-Mails gleichzeitig. In diesen VBA-Makros kann der Mitarbeiter sogar ohne VBA-Programmierkenntnisse die Notes-User selber definieren. Dieser VBA-Code fängt auch jegliche Fehlermeldungen ab. Diese Lösungen kannst du beispielsweise unter Word oder auch unter Excel einbauen, wobei ich persönlich Excel bevorzuge, da in einem Tabellenblatt die Stammdaten variabel hinterlegt werden können.

Bei Bedarf bitte meld dich !

mfg.

Navigation

[0] Themen-Index

[#] Nächste Seite