This is not tested...Just pulled from my memory. The below script
combines both vba and lotus script. More faster and elegant.
Dim oWrkSpace As Object
Dim oCrntDoc As Object
Set oWrkSpace = CreateObject ("Notes.NotesUIWorkSpace")
Set oCrntDoc = oWrkSpace.CurrentDocument
Call oCrntDoc.FieldSetText("EnterSendTo", sEmailId)
Call oCrntDoc.FieldSetText("EnterCopyTo", sCopyTo)
Call oCrntDoc.FieldSetText("Subject", sSubject)
Call oCrntDoc.FieldAppendText("Body", vbNewLine & sBody)
Call oCrntDoc.GoToField("Body")
Call oCrntDoc.Paste
Call oCrntDoc.Save(True, False, False)
Call oCrntDoc.Send(True)
Set oCrntDoc = Nothing
Set oWrkSpace = Nothing
AppActivate ("Notes")
Hope this helps!
Thank you,
Dev
On Feb 12, 4:26 am, Darshan Amreliya <amreliya1...@gmail.com> wrote:
> Hi
> I required a macro to send a email via Lotus notes using excel
>
> Please do the needful asap
> --
> Regards
>
> Darshan Amreliya
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
If you find any spam message in the group, please send an email to Ayush @
jainayus...@gmail.com
-~----------~----~----~----~------~----~------~--~---
