Auf einem excel file automatisch eine email versenden (via Lotus Notes)

[Boris Stumpf]

Hallo,

wie kann ich aus einer excel datei automatisch eine email versenden.
das problem ist, das in diesem fall ich nicht mit outlook arbeieten kann,
sondern mit lotus Notes
Kennt sich jemand damit aus?
Sub Mail()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add "***@test.de"
'Betreff
.Subject = "Test-Mail"
'Nachricht
.Body = "Makrele!" & Chr(13) & _
"yours" & Chr(13) & Chr(13)
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
.Attachments.Add "c:\otto.xls"
.Send
End With
Set olApp = Nothing
End SubWie muß ich das vba Projekt umändern, damit es auch mit notes
funktioniert.

vielen Dank schonmal im voraus.
Boris Stumpf

[stefan onken]

hallo Boris,
hier sind einige ältere NG-Beiträge zu dem Thema, ich hoffe, die helfen dir
weiter:
http://tinyurl.com/6j5d6

Gruß
stefan

Post by Boris Stumpf
Hallo,
wie kann ich aus einer excel datei automatisch eine email versenden.
das problem ist, das in diesem fall ich nicht mit outlook arbeieten kann,
sondern mit lotus Notes
Kennt sich jemand damit aus?
Sub Mail()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
'Betreff
.Subject = "Test-Mail"
'Nachricht
.Body = "Makrele!" & Chr(13) & _
"yours" & Chr(13) & Chr(13)
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
.Attachments.Add "c:\otto.xls"
.Send
End With
Set olApp = Nothing
End SubWie muß ich das vba Projekt umändern, damit es auch mit notes
funktioniert.
vielen Dank schonmal im voraus.
Boris Stumpf