Sending Email using Lotus Notes



Hi -- May I request your help. Few of my clients have their mailsystem
as Lotus Notes. I am trying to send thw workbook automatically using
Lotus notes. I have never used/worked in Lotus Notes thus am not
familiar with the same. Below is my code for outlook. Currently i have
just added a msg saying outlook not configured.

filenametemp = strFolderPath & filename
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs filename:=filenametemp
filename = ActiveWorkbook.FullName

'Check the Mailsystem
Select Case Application.MailSystem
Case xlMAPI
ActiveWorkbook.SendMail Recipients:="(e-mail address removed)"
Case xlPowerTalk
MsgBox "Outlook is not configured. Please send the
email by attaching the file directly from “&filename
Case xlNoMailSystem
MsgBox "No mail system installed! Please send the
email by attaching the file directly from " & filename
End Select
MsgBox "Thank You." & vbCrLf & "" & vbCrLf & "Work Request has
been Saved in " & filename

Thank you.

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