Hi Zusammen,
aus diversen Gründen muß ich für einige Mitarbeiter die MIME Kodierung als Standard einstellen.
Nun haben wir einige Workflows implementiert, die automatisch Mails mit Dokument-Links versenden, was bei "Notes-Mails" auch ohne Probleme funktioniert.
Leider funktioniert es nicht mehr bei den MIME kodierten Mails.
Wenn ich jedoch manuell einen Dokument-Link in eine Mail integriere und diese dann versende, klappt es auch mit den MIME kodierten Mails.
Hier der Code, der zum Versenden der Mails verwendet wird:
Set db = session.CurrentDatabase
'***** Open Mail.box ****************************************************
Set dbMailBox = New NotesDatabase( db.Server, "MAIL.BOX" )
If Not dbMailBox.IsOpen Then
Print "Could not open MAIL.BOX"
Msgbox "Problem to open MAIL.BOX",0+16,"Warning"
Exit Sub
End If
'************** Create mail document ****************************
Set docMail = New NotesDocument( dbMailBox )
Set body = New NotesRichTextItem( docMail, "Body" )
docMail.Form ="Memo"
docMail.subject = subject
docMail.SendTo = sendto
docMail.From = who
docMail.PostedDate = Now
docMail.ReplaceItemValue("$AssistMail","1").IsSummary = True
Call body.AppendText( "------------------------------------------------------------------------------------------------------------------" )
Call body.AddNewLine( 2 )
Call body.AppendText(message +" --->" )
Call body.AppendDocLink( doc, "Link to " )
Call body.AddNewLine( 2 )
Call body.AppendText( "------------------------------------------------------------------------------------------------------------------" )
'Call docMail.Save(True,True)
Call docMail.send (False)
If Isarray ( sendto ) Then
For iCount =0 To Ubound(sendto)
Print "Mail sent to:" + sendto(iCount)
Next
Else
Print "Mail sent to:" + sendto
End If
Exit Sub
Ich vermute das Problem in dem Erstellen der neuen Mail direkt in der MAIL.BOX auf dem Server. Oder was denkt Ihr??
BTW.: Ich soll diese Mails jetzt auch noch Signieren, hat das schon mal jemand von Euch getestet???
Danke für jeden Tipp
Norbert