Sorry dev it gives me error at this line
Set oCrntDoc = oWrkSpace.CurrentDocument
On Mon, Feb 16, 2009 at 11:04 AM, Murtaza Dalal <humtumhareh...@gmail.com>wrote:
> Hey Dev i tried using this code but it gives me an error where is need to
> enter the sent to email id. Can you check on that plz?
>
>
> On Fri, Feb 13, 2009 at 1:46 AM, Dev <nvdev.i...@gmail.com> wrote:
>
>>
>> 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
-~----------~----~----~----~------~----~------~--~---
