Sending Email using Lotus Notes

  • Thread starter Thread starter uthra.r
  • Start date Start date
U

uthra.r

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.
 
Back
Top