Send Mail using Lotus Notes



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) & "Tel:(956) 867-4309" & Chr(13) & "(e-mail address removed)"
.AddAttachment myDir & myFile
End With
End Sub

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads