Dateiname als Link

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Thorsten
Das Mail wird ohne Anhang versandt. Es bezieht sich auf eine bestimmte Datei in einem definierten Verzeichnis. Als Beispiel habe ich Test.xls und G:\Temp genommen. Die Idee ist nun den Usern den Komfort zu bieten statt via Explorer die Datei gleich mit einem Doppelklick aus dem Mail zu öffnen. Ich vermute, dass dies mittels VBA möglich ist, bin aber selber nicht so fit in VBA.
Hier mein Code für den Mail-Versand mittels Lotus Notes:
'Mail senden'
Dim Maildb As Object
Dim UserName As String
Dim MailDbName As String
Dim MailDoc As Object
Dim Session As Object
Dim Recipient As String
Set Session = CreateObject("Notes.NotesSession")
Set Maildb = Session.currentdatabase
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
Recipient = "die@mailadresse.ch"
MailDoc.sendto = Recipient
MailDoc.Subject = "Das ist der Betreff"
IndividuellerText = InputBox("Bitte hier individuellen Text eingeben oder mit 'Abbrechen' weiter fahren")
Anrede = "Guten Tag Herr ..."
Schlussatz = "Vgl. auch Datei 'Test.xls'"
Gruss = "Freundliche Grüsse"
MailDoc.Body = Anrede & Chr(13) & Chr(13) & "Hier steht Standardtext." & Chr(13) & Chr(13) & IndividuellerText & Chr(13) & Chr(13) & Schlussatz & Chr(13) & Chr(13) & Gruss
MailDoc.SAVEMESSAGEONSEND = False
MailDoc.PostedDate = Now()
MailDoc.Send 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
Weisst Du, oder sonst jemand, wie man das umsetzen könnte?
Gruss
Ben

Guten Morgen Rainer
Habe Deinen Code versucht einzubauen, meine VBA-Kenntnisse sind allerdings rudimentär und beruhen im Wesentlichen auf "try and error". Habe folgendes Versucht:
'Mail senden'
Dim Maildb As Object
Dim UserName As String
Dim MailDbName As String
Dim MailDoc As Object
Dim Session As Object
Dim Recipient As String
Dim Myitem As Object
Set Session = CreateObject("Notes.NotesSession")
Set Maildb = Session.currentdatabase
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
Recipient = "die@mailadresse.ch"
MailDoc.sendto = Recipient
MailDoc.Subject = "Das ist der Betreff"
IndividuellerText = InputBox("Bitte hier individuellen Text eingeben oder mit 'Abbrechen' weiter fahren")
Anrede = "Guten Tag Herr ..."
Myitem.Body = "Vgl. auch Datei 'Test.xls'" & vbCrLf & "\\fps02\Gruppen\Testverzeichnis\Test.xls"
Gruss = "Freundliche Grüsse"
MailDoc.Body = Anrede & Chr(13) & Chr(13) & "Hier steht Standardtext." & Chr(13) & Chr(13) & IndividuellerText & Chr(13) & Chr(13) & Myitem.Body & Chr(13) & Chr(13) & Gruss
MailDoc.SAVEMESSAGEONSEND = False
MailDoc.PostedDate = Now()
MailDoc.Send 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
Das führt zur Fehlermeldung:
Laufzeitfehler 91: Objektvariable oder With.Blockvariable nicht festgelegt.
Wie muss ich das Ganze genau einbinden? Und noch eine Frage: Weshalb spricht du von "2 Problemen"?
Gruss
Ben

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateiname als Link

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread