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 " 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. |
Sending Email using Lotus Notes
Please refer the below links which will help you.
http://www.ozgrid.com/forum/showthread.php?t=25809 http://en.allexperts.com/q/Using-Lot...otus-Notes.htm http://www.fabalou.com/VBandVBA/lotusnotesmail.asp http://www.excelkb.com/?cNode=1X5M7A If this post helps click Yes --------------- Jacob Skaria " wrote: 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 " 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. |
All times are GMT +1. The time now is 05:34 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com