Option Explicit
Sub lotus()
ChDir "C:\Users\U17916\Desktop"
Worksheets("Unfallanzeige").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\U17916\Desktop\Unfallanzeige.pdf"
Dim sText As String, sEmpfang As String, sBetrifft As String
Dim session As Object, db As Object, doc As Object, rtobject As Object
Dim rtitem As Object, sKopie As String
Dim AttachMe As Object, DerAnhang As Object
Dim user As String, server As String
Dim mailfile As String, sBlindKopie As String
Dim vAn As Variant, vCopy As Variant
Dim vBlind As Variant, sAnhang As String
On Error GoTo Fehler
sText = "Dies ist eine automatisch generierte eMail. " & vbCrLf & "Bei Fragen bitte an den Versender wenden."
sText = Replace(sText, vbCrLf, Chr(10))
sEmpfang = Worksheets("Verteiler").Range("A2:A50")
sBetrifft = "Unfallanzeige"
sKopie = "Email1 ; Email2 "
sBlindKopie = "Email1 ; Email2 "
vAn = Split(sEmpfang, " ; ")
sAnhang = "C:\Users\U17916\Desktop\Unfallanzeige.pdf"
If Len(sKopie) > 0 Then vCopy = Split(sKopie, " ; ")
If Len(sBlindKopie) > 0 Then vBlind = Split(sBlindKopie, " ; ")
Set session = CreateObject("notes.notessession")
user = session.UserName
server = session.GetEnvironmentString("MailServer", True)
mailfile = session.GetEnvironmentString("MailFile", True)
Set db = session.getdatabase(server, mailfile)
Set doc = db.createdocument()
doc.Form = "Memo"
doc.SendTo = vAn
If Len(sKopie) > 0 Then doc.copyto = vCopy
If Len(sBlindKopie) > 0 Then doc.blindcopyto = vBlind
doc.Subject = sBetrifft
Set rtitem = doc.CREATERICHTEXTITEM("body")
Call rtitem.APPENDTEXT(sText)
doc.SAVEMESSAGEONSEND = True
doc.PostedDate = Now
If sAnhang <> "" Then
Set AttachMe = doc.CREATERICHTEXTITEM("Attachment")
Set DerAnhang = AttachMe.EMBEDOBJECT(1454, "", sAnhang, "Attachment")
End If
Call doc.Send(False)
Aufraeumen:
On Error Resume Next
Set rtitem = Nothing
Set AttachMe = Nothing
Set DerAnhang = Nothing
Set db = Nothing
Set doc = Nothing
Set session = Nothing
Exit Sub
Fehler:
Resume Aufraeumen
End Sub
Ich habe unter sEmpfang einen Range angegeben, funktioniert jedoch auch nicht.
Könnt ihr mir evtl. weiterhelfen?
Desweiteren bekomme ich es nicht hin, dass die Datei unabhängig vom Username gesepcihert wird.
Also es sollte auf jeden Rechner verwendbar sein und immer auf dem Desktop gespeichert weerden.
Habt ihr dazu vll auch eine Lösung?
Dake euch im Voraus.
Mit freundlichen Grüßen
Chris