Send Mail using Lotus Notes

[locochon2010]

Can someone please let me know how to send an email from Excel VBA using
Lotus Notes? I have Outlook installed in the computer that will send the
email. I just need to know if Lotus Notes requires a diffrent code that the
SendMail code (by the way the code below is from Ron DeBruin blog):

Public Sub mySendmail()
Dim FileExtStr As String
Dim iMsg As Object
Dim iConf As Object

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

With iMsg
Set .Configuration = iConf
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.From = """Jenny"" <[email protected]>"
.Subject = "My Subject for " & Format(myDate, "mmmm d")
.TextBody = "Please see attached." & Chr(13) & Chr(13) & "Jenny" &
Chr(13) & "My Job Description" & Chr(13) & "My Company" & Chr(13) & "My
Address" & Chr(13) & "Tel956) 867-4309" & Chr(13) & "(e-mail address removed)"
.AddAttachment myDir & myFile
.Send
End With
End Sub

 

[Ron de Bruin]

Hi

For Lotus see
http://www.excelkb.com/?cNode=1X5M7A

Btw: The code below you posted is CDO code that not use a mail program
See
http://www.rondebruin.nl/cdo.htm