Hyperlink in mit VBA erzeugter E-Mail

[Tob]

Hallo,

ich versende aus Access (VBA) heraus E-Mails. Das geht mit folgendem Quelltext auch super.

'Notes
Public Function SendNotesMail(Recip As String, Subject As String, bodytext As String, attachment1 As String, attachment2 As String)

    Dim Maildb As Object
    Dim UserName As String
    Dim MailDbName As String
    Dim MailDoc As Object
    Dim AttachME1 As Object
    Dim Session As Object
    Dim EmbedObj1 As Object
 

    Set Session = CreateObject("Notes.NotesSession")

    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
   
 
    Set Maildb = Session.GetDatabase("", MailDbName)
     If Maildb.IsOpen = True Then
     Else
         Maildb.OPENMAIL
     End If

    Set MailDoc = Maildb.CreateDocument
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recip
    MailDoc.Subject = Subject
    MailDoc.Body = bodytext
    MailDoc.SaveMessageOnSend = True
   

    If attachment1 <> "" Then
        Set AttachME1 = MailDoc.CreateRichTextItem("Attachment")
        Set EmbedObj1 = AttachME1.EmbedObject(1454, "", attachment1, "Attachment")
        Set EmbedObj1 = AttachME1.EmbedObject(1454, "", attachment2, "Attachment")
    End If
   

    MailDoc.PostedDate = Now()

If Recip = "" Then
    MsgBox "Empfänger fehlt!"
    GoTo fehler
Else
    MailDoc.send 0, Recip
End If
   

    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME1 = Nothing
    Set Session = Nothing
    Set EmbedObj1 = Nothing

       
fehler:
    Exit Function
       
End Function


 Nun versuche ich dem ganzen ein Hyperlink zu zufügen. Meine Vermutung ist aber das notes die Mails immer als text verschickt obwohl im Client der MIME HTML senden eingestellt ist. Bei Outlook gibt es die Möglichkeit MailDoc.htmlBody = bodytext , was bei Notes aber nicht funktioniert. Wie kann ich den MIME einstellen? Wie bekomme ich es hin das der übergebene Text als HTML interpretiert wird?

[koehlerbv]

Der Client spielt hier (kaum) mit - das passiert ja im Backend. NotesMIMEEntityClass heisst das Zauberwort.

Bernhard

[Tob]

vielen Dank für die Antwort. Ich habe mich darüber Informiert und habe folgendes ausprobiert.

    Dim Maildb As Object
    Dim UserName As String
    Dim MailDbName As String
    Dim MailDoc As Object
    Dim Session As Object



    Set Session = CreateObject("Notes.NotesSession")
    Session.ConvertMime = False
   
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
   
    Set Maildb = Session.GetDatabase("", MailDbName)
    If Not Maildb.IsOpen Then Maildb.OPENMAIL
   
    Set MailDoc = Maildb.CreateDocument
    MailDoc.Form = "Memo"
    MailDoc.sendto = "max@muster.de"
    MailDoc.Subject = "Betreff...."
 

Dim body As NotesMIMEEntity  'Object geht auch nicht
Dim stream As NotesStream

    Set body = MailDoc.CreateMIMEEntity
    stream.WriteText ("body text text")
   
    body.SetContentFromText stream, "text/html;charset=iso-8859-1", ENC_IDENTITY_8BIT
    Session.ConvertMime = True


    MailDoc.SaveMessageOnSend = SaveIt
   
    MailDoc.PostedDate = Now()
    MailDoc.Send 0, Recipient
   
   
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
    Set body = Nothing
 

Der Verweis bei VBA steht auf "Lotus Domino Objects". Es liefert mir aber immer den Fehler "Typen unverträglich" bei der Anweisung set body. Ich versuche und versuche und hab keine Lösung. Kannst du mir noch einmal einen Tip geben?