Mail über Notes - Problem mit mehreren Empfängern
22.09.2003 11:09:24
Willy Brown
ich habe ein Problem mit einem Makro, welches Mails per Notes aus dem Excel versendet.
Der Code ansich funktioniert super. Es gibt lediglich Probleme, wenn im Empfängerfeld mehr als ein Name steht.
Soll heißen: Ich lese eine Zelle meiner Tabelle aus und nehme den Namen als Empfänger für die Mail. Wenn in dieser Zelle jetzt aber z.B. willy brown, manfred mustermann steht bricht meine Routine ab und sag, dass es keinen Eintrag im Adressbuch gibt. Gebe ich jeden Namen einzeln an geht es.
Hier der Code:
Set obj_notes_session = CreateObject("Notes.NotesSession")
Set obj_notes_db = obj_notes_session.GetDatabase(COM_NOTES_SERVER, COM_NOTES_DATABASE)
If obj_notes_db.IsOpen = False Then obj_notes_db.OPENMAIL
' create empty document
Set obj_note_document = obj_notes_db.CreateDocument()
With obj_note_document
.sendto = par_recipient
.CopyTo = ""
.Form = CON_NOTES_FORM
.Subject = par_subject
.DeliveryReport = "B"
.DeliveryPriority = "H"
.SaveMessageOnSend = False
.returnreceipt = "1"
var_returncode = .ComputeWithForm(True, True)
If .HasItem("Body") = True Then
.RemoveItem "Body"
End If
Set obj_RichTextItem = .CREATERICHTEXTITEM("Body")
obj_RichTextItem.IsSigned = True
.Body = par_body + Chr(13)
Set obj_attachment = obj_RichTextItem.EmbedObject(EMBED_ATTACHMENT, "", par_attachment)
par_recipient kommt aus dem Excelsheet.
Hat jemand eine Idee, warum es nicht funzt. Wenn ich die Namen (willy brown, manfred mustermann) direkt im Notes in eine Mail bastle und abschicke geht es ?!?
Vielen Dank schonmal
Willy