AtNotes Übersicht Willkommen Gast. Bitte einloggen oder registrieren.
26.09.20 - 13:45:14
Übersicht Hilfe Regeln Glossar Suche Einloggen Registrieren
News:
Schnellsuche:
+  Das Notes Forum
|-+  Lotus Notes / Domino Sonstiges
| |-+  OLE/COM-Programmierung
| | |-+  VBA: Anwendungslink erstellen
« vorheriges nächstes »
Seiten: [1] Nach unten Drucken
Autor Thema: VBA: Anwendungslink erstellen  (Gelesen 18864 mal)
wziffels
Frischling
*
Offline Offline

Beiträge: 6


« am: 16.02.15 - 13:00:03 »

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
Gespeichert
Mitch
Senior Mitglied
****
Offline Offline

Geschlecht: Männlich
Beiträge: 292


...? ...!


« Antworten #1 am: 16.02.15 - 13:16:43 »

Moinsen,

ja.

Gruß,

Mitch

(P.S.: "AppendDocLink" im NotesRichtextItem ist dein Ansatzpunkt  Cheesy)
Gespeichert
wziffels
Frischling
*
Offline Offline

Beiträge: 6


« Antworten #2 am: 16.02.15 - 15:56:57 »

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

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
Gespeichert
Mitch
Senior Mitglied
****
Offline Offline

Geschlecht: Männlich
Beiträge: 292


...? ...!


Re:
« Antworten #3 am: 16.02.15 - 16:30:14 »

Der Doklink muss in den Body.

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

Gruß,

Mitch
Gespeichert
wziffels
Frischling
*
Offline Offline

Beiträge: 6


« Antworten #4 am: 17.02.15 - 10:51:17 »

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
Gespeichert
TRO
Senior Mitglied
****
Offline Offline

Beiträge: 294


« Antworten #5 am: 17.02.15 - 11:01:44 »

wie schon Mitch schrieb: der DocLink muss in den Body!

Set rt = MailDoc.CREATERICHTEXTITEM("Body")


hth

Thomas
Gespeichert
wziffels
Frischling
*
Offline Offline

Beiträge: 6


« Antworten #6 am: 17.02.15 - 11:27:44 »

Dann bekomme ich die folgende Fehlermeldung:

Objektvariable oder With-Blockvariable nicht festgelegt  Huh
Gespeichert
wziffels
Frischling
*
Offline Offline

Beiträge: 6


« Antworten #7 am: 17.02.15 - 11:31:28 »

Das lag wohl daran dass ich vorher dem Body schon normalen Text zugewiesen habe.

Kommentiere ich MailDoc.Body = BodyText aus dann steht da zumindest schonmal Click here: aber der Anwendungslink fehlt trotzdem.  Huh
Gespeichert
Tode
Moderatoren
Gold Platin u.s.w. member:)
*****
Offline Offline

Geschlecht: Männlich
Beiträge: 6486


Geht nicht, gibt's (fast) nicht... *g*


WWW
« Antworten #8 am: 17.02.15 - 11:32:43 »

Das kollidiert auch mit dieser Zeile:
Code:
   MailDoc.Body = BodyText
mit der Du das Item "Body" als NotesItem und nicht als "NotesRichtextItem" anlegst.

So wäre es richtig:
Code:
Set rt = MailDoc.CREATERICHTEXTITEM("Body")
Call rt.AppendText( BodyText )
Call rt.AddNewline(1)
Call rt.APPENDTEXT ("Click here: ")
Call rt.APPENDDOCLINK( Maildb, Maildb.Title )
Gespeichert

Gruss
Torsten (Tode)

P.S.: Da mein Nickname immer mal wieder für Verwirrung sorgt: Tode hat NICHTS mit Tod zu tun. So klingt es einfach, wenn ein 2- Jähriger versucht "Torsten" zu sagen...

Mit jedem Tag meines Lebens erhöht sich zwangsweise die Zahl derer...
... denen ich am AdminCamp ein Bier schulde... Wenn ich hier jemanden angehe: Das ist nie persönlich, sondern immer gegen die "Sparwut" der Firmen gedacht, die ungeschultes Personal in die Administration unternehmenskritischer Systeme werfen... Sprecht mich einfach am AdminCamp an, ich zahle gerne zur "Wiedergutmachung" das ein oder andere Bierchen an der Bar
wziffels
Frischling
*
Offline Offline

Beiträge: 6


« Antworten #9 am: 17.02.15 - 11:52:45 »

Allen Beteiligten einen herzlichen Dank für eure Unterstützung.

Der Fehler lag am Ende noch daran dass der laut IBM-Dokumentation optionale Parameter HotSpotText mit angegeben werden MUSS.

Dokumentation:
Code:
Call  notesRichTextItem .AppendDocLink(  linkTo ,  comment$ [, HotSpotText$ ] )


Mein funktionierender Code:
Code:
rt.APPENDDOCLINK Maildb, Maildb.Title, "Link zur Datenbank"

 Cheesy
Gespeichert
Seiten: [1] Nach oben Drucken 
« vorheriges nächstes »
Gehe zu:  


Einloggen mit Benutzername, Passwort und Sitzungslänge

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006, Simple Machines Prüfe XHTML 1.0 Prüfe CSS
Impressum Atnotes.de - Powered by Syslords Solutions - Datenschutz | Partner: