Ich versuche, den Lotus Notes-E-Mail-Text in Word-Dokument einzufügen, und ich bin dabei fast erfolgreich. Aber wenn ich den Inhalt in Word einfüge, werden die Hyperlinks nicht angezeigt, sondern nur als Text. Unten ist was ich bisher versucht habe. Ich möchte, dass die Hyperlinks auch vom Text der E-Mail in das Word-Dokument eingefügt werden.Paste Lotus Notes E-Mail-Textkörper mit Hyperlink zu Word-Dokument
Set NSession = CreateObject("Notes.NotesSession")
Set NMailDb = NSession.GetDatabase("", "")
If Not NMailDb.IsOpen Then
NMailDb.OPENMAIL
End If
Set NDocs = NMailDb.GetView(view)
NDocs.Clear
If filterText <> "" Then
NDocs.FTSEARCH filterText, 0
End If
Set NDoc = NDocs.GetFirstDocument
Do Until Left(NDoc.GETITEMVALUE("PostedDate")(0), 8) <> Left(Now(), 8)
Set NNextDoc = NDocs.GetNextDocument(NDoc)
If Left(NDoc.GETITEMVALUE("PostedDate")(0), 8) = Left(Now(), 8) Then
If InStr(3, NDoc.GETITEMVALUE("From")(0), "From", vbTextCompare) > 0 Then
Set NItem = NDoc.GetFirstItem("Body")
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\https.docm")
wrdApp.Visible = True
Set objSelection = wrdApp.Selection
objSelection.TypeText NDoc.GETITEMVALUE("Body")(0)
Welche Version von Notes, auf welcher Plattform und mit welcher Version von Word versuchen Sie dies? –
Lotus Notes 8.5, Microsoft Word 2013 und Windows 7 - Systemtyp ist 64-Bit-Betriebssystem –