Hyper per VBA in Lotus Notes
12.06.2014 10:03:41
Thomas
hab da mal ein anliegen, ich möchte über VBA eine Email in Lotus verschicken, klappt auch alles super.
jetzt will ich aber dass in der Mail noch ein Hyperlink an eine Datei im Netzwerkordner verlinkt wird.
ich schreib im text z.B. : file:///\\bla.de\Blabla
wenn ich ne mail selber schreibe, dann funktioniert der link, aber über vba nicht, warum ? liegt es an der formatierung oder so ?
hier mein code:
Sub Email_senden()
Dim Speicher_Name As String
Dim Subject As String
Dim Zähler As Integer
Dim strHTMLLink As String
MsgBox ("Das Dokument wird jetzt automatisch versandt!")
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs Filename:=Speicher_Name
'Ab hier Lotus Email-Prozedur
strHTMLLink = "file:///C:\Users\Public\Pictures\Sample%20Pictures\Chrysanthemum.jpg" 'test
Dim strEmpfaenger, strBetreff, strText, strcc, strbcc As String
strEmpfaenger = "meine@email.de"
strBetreff = Subject
strText = "Sehr geehrte Damen und Herren," & vbLf & vbLf & "anbei erhalten Sie eine _
Hyperlink:" & vbLf & vbLf & strHTMLLink
NotesMailSend strEmpfaenger, strBetreff, strText, strcc, strbcc
'Screen.MousePointer = vbNormal
Application.DisplayAlerts = True
MsgBox ("Das Dokument wurde versandt und wird bearbeitet!" & Chr(13) & "Datei wird _
geschlossen ohne zu speichern!" & Chr(13) & "Vielen Dank!")
ActiveWindow.Close saveChanges:=False
ActiveWorkbook.Close saveChanges:=False
End Sub
Function NotesMailSend(strEmpfaenger As Variant, strBetreff As Variant, _
strText As Variant, strcc As Variant, strbcc As Variant)
' Dimensionierung der Objektvariablen
Dim objNotes As Object, objNotesDB As Object, objNotesMailDoc As Object
Dim SendItem, NCopyItem, BlindCopyToItem, i As Integer, rtitem
Dim msg As String
' Zuweisung der Objektvariablen
On Error GoTo ExitF
Set objNotes = GetObject("", "Notes.Notessession")
Set objNotesDB = objNotes.GETDATABASE("", "")
' Öffnen der Standard-Maildatenbank / Erstellen neues Maildokument
Call objNotesDB.OPENMAIL
Set objNotesMailDoc = objNotesDB.CREATEDOCUMENT
objNotesMailDoc.Form = "Memo"
Call objNotesMailDoc.Save(True, False)
Set SendItem = objNotesMailDoc.APPENDITEMVALUE("SendTo", "")
Set NCopyItem = objNotesMailDoc.APPENDITEMVALUE("CopyTo", "")
Set BlindCopyToItem = objNotesMailDoc.APPENDITEMVALUE("BlindCopyTo", "")
objNotesMailDoc.sendto = strEmpfaenger
objNotesMailDoc.Subject = strBetreff
Set rtitem = objNotesMailDoc.CREATERICHTEXTITEM("Body")
objNotesMailDoc.Body = strText
' Mail zustellen
Call objNotesMailDoc.Save(True, False)
Call objNotesMailDoc.send(False)
objNotesMailDoc.RemoveItem ("DeliveredDate")
Call objNotesMailDoc.Save(True, False)
' Nachricht an Benutzer
MsgBox "Die E-Mail wurde erfolgreich versendet!", vbInformation, "Notesmail versenden..."
' Objektvariablen zurücksetzen
Call objNotes.Close
Set objNotes = Nothing
Exit Function
ExitF:
MsgBox "Fehler in
Sub Fehler0" & vbCrLf & "Fehlernummer: " & Err.Number & _
vbCrLf & "Fehlerbeschreibung: " & Err.Description
End Function
hoffe mir kann wer helfen ^^