Beiträge von oiseau

  • Dateianhang im geschützten Textbereich

    Guten Tag,


    ich möchte eine PDF-Datei als Anhang automatisch per VBA (CREATEOBJECT) in LotusNotes versenden, was soweit auch ohne Probleme funktioniert. Leider wird der Anhang immer unter eine horizontale Linie gelegt (geschützter Textbereich). Wie bekomme ich den Anhang in den normalen, oberen Textbereich, wie beim manuellen Anhängen einer Datei ?


    Vielen Dank
    Mathias



    Hier der Quelltext:
    ...
    Set Session = CreateObject("Notes.NotesSession")
    Set Maildb = Session.GETDATABASE("", "")
    Maildb.OPENMAIL


    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt


    If Attachment <> "" Then
    Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
    Set EmbedObj = AttachME.EMBEDOBJECT(1454, "",Attachment)
    End If


    'Send the document
    MailDoc.PostedDate = Now()
    MailDoc.send 0, Recipient