Laufzeitfehler 438 bei Lotus 7 Fernsteuerung
Heiko
Sub SendNotesMail()
'Application.DisplayAlerts = False
Dim AWS
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
'On Error GoTo Fehlgeschlagen
ChDir "Pfad"
Workbooks.Open Filename:="Pfad\Datei.xls"
Windows("Datei").Activate
AWS = ActiveWorkbook.FullName
Set Session = CreateObject("Notes.NotesSession")
Set MailDB = Session.CurrentDatabase
Set MailDoc = MailDB.Createdocument
MailDoc.Form = "Memo"
Recipient = "Recipient@mail.com"
MailDoc.sendto = Recipient
MailDoc.CopyTo = ""
MailDoc.Subject = "Mail aus Excel"
MailDoc.SaveMesageOnSend = True
Set Attachme = MailDoc.CreateRichTextItem(ActiveWorkbook.Path & AWS)
Set EmbedObj = Attachme.EmbedObj(1454, "", ActiveWorkbook.Path & AWS)
MailDoc.PostedDate = Now()
MailDoc.Send 0, Recipient
Set MailDB = Nothing
Set MailDoc = Nothing
Set Attachme = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
Fehlgeschlagen:
MsgBox ("Senden fehlgeschlagen")
End Sub
Vielen Dank Heiko