View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
locochon2010 locochon2010 is offline
external usenet poster
 
Posts: 5
Default 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 = "
.CC = ""
.BCC = ""
.From = """Jenny"" "
.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) & "
.AddAttachment myDir & myFile
.Send
End With
End Sub