Domino 9 und frühere Versionen > ND6: Entwicklung

Serienmail aus VB6 mit Notes versenden

(1/3) > >>

Strossi:

Ich habe ein Problem! Ich möchte aus einer Listbox von VB6 alle aufgelisteten emailadressen in das Feld BlindCopyTo von Lotus Notes eintragen. Aber das funktioniert nicht. Ich kann nur max.15 Adressen speichern. Bei mehr als 15 werden alle bis auf eine gelöscht. Kann mir jemadb einen Tip geben. Wäre sehr dankbar daführ. Probiere schon einige Tage daran herum.

Semeaphoros:
Gibst Du uns mal ben Code, den Du verwendest? Vielleicht können wir Dir dann eine Alternative aufzeigen.

Strossi:
Hier der Code:

Listbox von VB:
For icounter = Me.lstMail.ListCount - 1 To 0 Step -1
            KundenMail = Me.lstMail.List(icounter)
            EMailadressen = EMailadressen & KundenMail & ","

Aufruf Notes:

SendNotesMail cboThema.Text, EMailadressen, (BodyTxt)


Email versenden mit Notes:
'Die Session starten
    Set Session = CreateObject("Notes.NotesSession")
        UserName = Session.UserName
        MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
   
    'Datenbank öffnen
    Set Maildb = Session.GETDATABASE("", MailDbName)
        If Maildb.ISOPEN = False Then Maildb.OPENMAIL
     
    'Ein neues Maildokument erstellen
    Set MailDoc = Maildb.CREATEDOCUMENT
        MailDoc.Form = "MemoKDE"
        MailDoc.BlindCopyTo = Recipient
        MailDoc.Subject = Subject
        MailDoc.Body = BodyText
        MailDoc.SAVEMESSAGEONSEND = SaveIt
        'MailDoc.ReturnReceipt = "1" 'e-Mail bestätigung vom Empfänger

    'Eingebettete Objekte und Anhänge hinzufügen
    Set NewObj = CreateObject("Scripting.FileSystemObject")
    Set myFolder = NewObj.GetFolder("C:\" + k_Country)
    Set AllFiles = myFolder.Files
    Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        For Each s_Files In AllFiles
            i = InStr(s_Files, ".")
            Datei = LCase(Mid(s_Files, i))
               
                If Datei = ".pdf" Then
                    Attachment = s_Files
                       
                        If Attachment <> "" Then
                            Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
                        End If
                End If
       Next
    'Senden
    MailDoc.PostedDate = Now()
    MailDoc.SEND 0, Recipient

Semeaphoros:
Da wird vermutlich der String zu lang :(

Versuche doch, was passiert, wenn Du statt eines einzigen Strings direkt die Lise aus der Listbox übergibst. Falls das nicht geht, würde ich im NotesDocument das Feld BindCopyTo als NotesItem erstellen und dann per AppendToTextList die einzelnen Empfänger so im Dokument eintragen.

Strossi:
OK probier ich mal aus.
Danke für die Info

Gruß Strossi :-)

Navigation

[0] Themen-Index

[#] Nächste Seite