Excel-Sheet als Mail-Anhang
06.01.2005 21:30:22
Frankie24
ich habe eine Excel-Datei mit 12 Sheets, die alle einen CommandButton haben, mit dem ich das aktuelle Sheet als Anhang zu einer Mail in Outlook beifüge (d.h. das ganze Sheet als solches wird zu einem xls-Anhang). Das funktioniert auch prima, aber mein Problem ist, dass ich dies nun auch für jemanden mit Lotus Notes "basteln" muss. Wie bekomme ich das hin?
Hier mal mein entsprechender VBA-Auszug für Outlook:
Sub CommandButton1_Click()
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\111.xls"
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
Mail.Subject = "222"
Mail.Body = "333"
Mail.To = "444"
Mail.CC = "555"
Mail.Attachments.Add ("111.xls")
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
ActiveWorkbook.Close
Kill "C:\111.xls"
End Sub
Für einen Lotus-Notes-tauglichen Tipp wäre ich sehr dankbar. Vermutlich muss ich doch nur "Outlook.Application" durch etwas anderes ersetzen, oder?
Gruß
Frank