Danke Axel.
Die Mail geht von einem Notes-User auch an externe Firmen..soviel zum Problem mit den Routern..
Ich hab das mit dem Importieren mal versucht, aber er zeigt mir nur ein Symbol für das Objekt an, und nicht die HTML-Seite. Ausserdem muss ich die Mail nach dem einfügen speichern, sonst zeigt er mir den Body leer an...
Das hier is mein ursprünglicher Code (auch hier ausm Forum
):
Function CreateMailMemo(sBody As Variant) As Integer
'#Erstellen einer Neuen Mail und einfügen der übergebenen Daten in den Body der Mail
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim maildb As NotesDatabase
Dim maildoc As NotesDocument
Dim profile As NotesDocument
Dim sMailAdress As String
Dim sMailSubject As String
CreateMailMemo = 0
Set maildb = New NotesDatabase("","")
maildb.OpenMail
Set profile = maildb.GetProfileDocument("CalendarProfile")
Set maildoc = New NotesDocument(maildb)
maildoc.Form = "Memo"
maildoc.Logo = profile.DefaultLogo(0)
maildoc.Principal = profile.Owner(0)
'#maildoc.SendTo = varSendTo
'#maildoc.Subject = sSubject
maildoc.Body = sBody
Call workspace.EditDocument(True, maildoc)
End Function
Da funktioniert das auch nicht mit dem addTab..
Irgendwie steh ich im Moment aufm Schlauch..
