Ich habe schon zu diesem thema öffters mal nee frage gestellt.
mit Vba Code eine Mail über Lotus Notes zu Versenden klappt ja auch schon so recht und schlecht.
Wie kann ich aber eine Exceldatei an diese Mail anhängen ?
kann jemand helfen
wolfgang
Bye
Nike
Bye
Nike
' +++++++++ Tabellenblatt eingefügt +++++++++++
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A1").Value & ".xls"
ActiveWorkbook.SendMail Recipients:=Empfänger, _
Subject:=Range("A1").Value
' +++++++++++++++++++++++
' ######### als Arbeitsmappe Verschicken #########
dim TestdateialsAnhang as string
TestdateialsAnhang=Activesheet.Range("A1").Value & ".xls"
ActiveWorkbook.SaveAs Range("A1").Value & ".xls"
ActiveWorkbook.close
Mail.Attachments."c:\Test\" & TestdateialsAnhang
' ###########################################
MailDoc.sendto = Recipient
MailDoc.Subject = Range("A1").Value
MailDoc.Body = "Ein Test aus Lotus Notes"
MailDoc.SAVEMESSAGEONSEND = True
MailDoc.PostedDate = Now()
MailDoc.Send 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub
Vieleicht erkennst du ja als profi was verkehrt ist.
gruß wolfgang
Bye
Nike
Option Explicit
Sub SendNotesMail()
Dim MailDoc As Object
Dim Maildb As Object
Dim Session As Object
Set Session = CreateObject("Notes.NotesSession")
Dim rtItem As Object
Dim EmbedObj As Object
Dim Empfänger As String
Dim UserName As String
Dim MailDbName As String
Dim Recipient As String
Dim wkbBasis As Workbook
Dim wksBasis As Worksheet
Dim strAnhang As String
' +++++++++ Tabellenblatt eingefügt +++++++++++
Set wkbBasis = ActiveWorkbook
Set wksBasis = ActiveSheet
wkbBasis.ActiveSheet.Copy
wksBasis.SaveAs wksBasis.Range("A1").Value & ".xls"
wkbBasis.SendMail Recipients:=Empfänger, _
Subject:=wksBasis.Range("A1").Value
' +++++++++++++++++++++++
' ######### als Arbeitsmappe Verschicken #########
Dim TestdateialsAnhang As String
TestdateialsAnhang = wksBasis.Range("A1").Value & ".xls"
wkbBasis.SaveAs wksBasis.Range("A1").Value & ".xls"
strAnhang = ActiveWorkbook.FullName
ActiveWorkbook.Close
' ###########################################
Set Maildb = Session.currentdatabase
Set MailDoc = Maildb.CreateDocument()
MailDoc.Form = "Memo"
Empfänger = "WWala@t-online.de"
MailDoc.SendTo = Recipient
MailDoc.Subject = wksBasis.Range("A1").Value
MailDoc.Body = "Ein Test aus Lotus Notes"
MailDoc.SAVEMESSAGEONSEND = True
Const EMBED_ATTACHMENT = 1454
Set rtItem = MailDoc.createrichtextitem("Body")
rtItem.APPENDTEXT ("The body of the message goes here!")
rtItem.ADDNEWLINE (1)
Set EmbedObj = rtItem.embedObject(EMBED_ATTACHMENT, "", strAnhang)
MailDoc.PostedDate = Now()
MailDoc.Send 0, Recipient
MailDoc.Save True, False
Set Maildb = Nothing
Set MailDoc = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub
in diesem Thread wird doch Attached...
frisch aus dem Archiv gefischt ;-)
Bye
Nike
Das sendmail geht wohl nur, wenn du ein Outlook installiert hast,
bei notes mußt du das weglassen, hab ich wohl übersehen.
Hier mal ne kleine Überarbeitung ;-)