nicht ActiveWorkbook sondern entsprechende Datei
amintire
habe den Code um eine Mail per Makro senden zu können, nun möchte ich aber nicht die aktive Tabelle senden, sondern eine bestimmte Datei aus einem Laufwerk, z.B. H:\Test\Test.xls
Vielleicht kann mir jemand helfen den Code umzubauen.
Vielen Dank und liebe Grüße
Amina
Sub SendMail()
ActiveWorkbook.Save
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.DisplayAlerts = False
Dim Maildb As Object
Dim MailDbName As String
Dim MailDoc As Object
Dim session As Object
Dim Recipient As String
Dim e As String
Dim f As String
Dim EmbedObj As Object
Dim AttachME As Object
AWS = ActiveWorkbook.FullName
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
'On Error Resume Next
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
Recipient = "Mustermann.Max@test.de"
MailDoc.sendto = Recipient
MailDoc.Subject = "Test " & Date
'MailDoc.SAVEMESSAGEONSEND = True
'Pfad zur zu versendenden Datei
Set AttachME = MailDoc.CREATERICHTEXTITEM(ActiveWorkbook.Path)
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", AWS)
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set session = Nothing
Set EmbedObj = Nothing
Application.DisplayAlerts = True
MsgBox "Die E-Mail wurde erfolgreich versendet!" 'optional
'Unload UserForm1
End Sub