Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

VBA: Anwendungslink erstellen

(1/2) > >>

wziffels:
Moin Moin,

Wie ich Mails per VBA versende weiß ich aber gibt es auch eine Möglichkeit in einer automatisiert erstellten Notesmail einen Anwendungslink zu einer Datenbank (blaues Buchsymbol) zu erstellen?

MfG
WZ

Mitch:
Moinsen,

ja.

Gruß,

Mitch

(P.S.: "AppendDocLink" im NotesRichtextItem ist dein Ansatzpunkt  :D)

wziffels:

--- Zitat von: Mitch am 16.02.15 - 13:16:43 ---(P.S.: "AppendDocLink" im NotesRichtextItem ist dein Ansatzpunkt  :D)

--- Ende Zitat ---

Danke für die Info Mitch. Kannst du das etwas genauer ausführen?
In den Dokumenteneigenschafften wird bei mir zwar ein Feld mit dem bei CREATERICHTEXTITEM angegebenen Namen angezeigt aber der DocLink den ich mit APPENDDOCLINK erstelle wird im Body nicht angezeigt.

Gruß
Wolfgang

Mitch:
Der Doklink muss in den Body.

Wenn es das nicht ist, müsstest du mal den Code posten.

Gruß,

Mitch

wziffels:
Hallo Mitch,

Danke für deine Hilfe.
Dies ist mein Code:


--- Code: --- Public Sub SendNotesMail(Subject As String, Recipient As String, BodyText As String, SaveIt As Boolean)
     Dim Maildb As Object 'The mail database
     Dim UserName As String 'The current users notes name
     Dim MailDbName As String 'THe current users notes mail database name
     Dim MailDoc As Object 'The mail document itself
     Dim Session As Object 'The notes session
     Dim EmbedObj As Object 'The embedded object (Attachment)
     Dim rt As Object
     
     'Start a session to notes
     Set Session = CreateObject("Notes.NotesSession")
     
     UserName = Session.UserName
     
     'Open the mail database in notes
     Set Maildb = Session.GETDATABASE("Domino01", "wziffels.nsf")
     If Maildb.IsOpen = True Then
      Else
          Maildb.OPENMAIL
      End If
     
     'Set up the new mail document
     Set MailDoc = Maildb.CREATEDOCUMENT
     MailDoc.Form = "Memo"
     MailDoc.sendto = Recipient
     MailDoc.Subject = Subject
     MailDoc.Body = BodyText
     
     Set rt = MailDoc.CREATERICHTEXTITEM("TestDocLink")
    rt.APPENDTEXT ("Click here: ")
    rt.APPENDDOCLINK Maildb, Maildb.Title
     
     MailDoc.SAVEMESSAGEONSEND = SaveIt
     
     'Send the document
     MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
     MailDoc.SEND 0, Recipient
     
     'Clean Up
     Set Maildb = Nothing
     Set MailDoc = Nothing
     Set Session = Nothing
     Set EmbedObj = Nothing
 End Sub
 
 Function test()
     SendNotesMail "Testmail VBA", "wziffels", "Nur ein Text", True
 End Function

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite