can you attach your file
On Mon, Aug 15, 2011 at 5:35 PM, Chandra Shekar <
chandrashekarb....@gmail.com> wrote:
> Hi,
>
> I am getting attached error while running the macro. Please let me know
> whats the error in the below code.
>
> *MailDoc.Save True, True, False*
>
> Regards,
>
> Chandra Shekar B
> On Mon, Aug 15, 2011 at 11:43 AM, Chandra Shekar <
> chandrashekarb....@gmail.com> wrote:
>
>> Hi Asish,
>> Thank u for the help again I am getting error in the below code. Please
>> let me know whats the problem in the below code.
>>
>> Thanks in advance.
>> **
>> *MailDoc.Save True, True, False
>> *
>> On Mon, Aug 15, 2011 at 9:53 AM, ashish koul <koul.ash...@gmail.com>wrote:
>>
>>> dont use .copy in set statement
>>>
>>>
>>> On Fri, Aug 12, 2011 at 3:43 PM, Chandra Shekar <
>>> chandrashekarb....@gmail.com> wrote:
>>>
>>>> Hello Ashish,
>>>>
>>>> I got solution for this issue but I am getting one more error in code as
>>>> type mismatch
>>>>
>>>>
>>>> *Set rnbody1 = Sheets("Details").UsedRange.Copy
>>>> rnbody1.Copy
>>>>
>>>> *
>>>> On Fri, Aug 12, 2011 at 9:12 AM, Chandra Shekar <
>>>> chandrashekarb....@gmail.com> wrote:
>>>>
>>>>> Hi Ashsh,
>>>>>
>>>>> I used ur code but getting error in below lines. I think I need to
>>>>> enable some reference. Please let me know about this.
>>>>>
>>>>> *Set Data = New DataObject
>>>>> Data.GetFromClipboard
>>>>> *
>>>>> Thanks,
>>>>>
>>>>> Chandra Shekar B
>>>>> On Fri, Aug 12, 2011 at 8:21 AM, Chandra Shekar <
>>>>> chandrashekarb....@gmail.com> wrote:
>>>>>
>>>>>> Thanks Ashish I will check it out. :-)
>>>>>>
>>>>>>
>>>>>> On Fri, Aug 12, 2011 at 4:31 AM, ashish koul
>>>>>> <koul.ash...@gmail.com>wrote:
>>>>>>
>>>>>>> try these
>>>>>>>
>>>>>>>
>>>>>>> On Wed, Aug 10, 2011 at 6:10 PM, Chandra Shekar <
>>>>>>> chandrashekarb....@gmail.com> wrote:
>>>>>>>
>>>>>>>> Hi,
>>>>>>>>
>>>>>>>> In below code some times I could able to send attachments but some
>>>>>>>> times its not taking attachment at all. Please let me know whats is the
>>>>>>>> problem in the below code.
>>>>>>>>
>>>>>>>> Sub sendmail()
>>>>>>>> '
>>>>>>>> Dim UserName As String
>>>>>>>> Dim MailDbName As String
>>>>>>>> Dim Recipient As Variant
>>>>>>>> Dim ccRecipient As String
>>>>>>>> Dim Attachment1 As String
>>>>>>>> Dim Maildb As Object
>>>>>>>> Dim MailDoc As Object
>>>>>>>> Dim AttachME As Object
>>>>>>>> Dim AttachME2 As Object
>>>>>>>> Dim AttachME3 As Object
>>>>>>>> Dim AttachME4 As Object
>>>>>>>> Dim AttachME5 As Object
>>>>>>>> Dim Session As Object
>>>>>>>> Dim EmbedObj1 As Object
>>>>>>>> Dim EmbedObj2 As Object
>>>>>>>> Dim EmbedObj3 As Object
>>>>>>>> Dim EmbedObj4 As Object
>>>>>>>> Dim EmbedObj5 As Object
>>>>>>>> Dim stSignature As String
>>>>>>>> With Application
>>>>>>>> .ScreenUpdating = False
>>>>>>>> .DisplayAlerts = False
>>>>>>>> ' Open and locate current LOTUS NOTES User
>>>>>>>> Set Session = CreateObject("Notes.NotesSession")
>>>>>>>> UserName = Session.UserName
>>>>>>>> MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) -
>>>>>>>> InStr(1, UserName, " "))) & ".nsf"
>>>>>>>> Set Maildb = Session.GetDatabase("", MailDbName)
>>>>>>>> If Maildb.IsOpen = True Then
>>>>>>>> Else
>>>>>>>> Maildb.OPENMAIL
>>>>>>>> End If
>>>>>>>> ' Create New Mail and Address Title Handlers
>>>>>>>> Set MailDoc = Maildb.CREATEDOCUMENT
>>>>>>>> MailDoc.Form = "Memo"
>>>>>>>> stSignature =
>>>>>>>> Maildb.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
>>>>>>>> ' Select range of e-mail addresses
>>>>>>>> Recipient = notes_id
>>>>>>>> MailDoc.SendTo = Recipient
>>>>>>>> MailDoc.Subject = "Test Mail "
>>>>>>>> MailDoc.Body = "Hi," & vbCrLf & vbCrLf & "Please find attached
>>>>>>>> schedule for the day " & vbCrLf & vbCrLf & "Regards" & vbCrLf & vbCrLf
>>>>>>>> &
>>>>>>>> "Chandru"
>>>>>>>> ' Select Workbook to Attach to E-Mail
>>>>>>>> MailDoc.SaveMessageOnSend = True
>>>>>>>> Attachment1 = "C:\temp.bmp" ' Required File Name"
>>>>>>>> If Attachment1 <> "" Then
>>>>>>>> On Error Resume Next
>>>>>>>> Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1")
>>>>>>>> Set EmbedObj1 = AttachME.EmbedObject(1454, "", Attachment1,
>>>>>>>> "Attachment1")
>>>>>>>> MailDoc.CREATERICHTEXTITEM ("Attachment1")
>>>>>>>> On Error Resume Next
>>>>>>>> End If
>>>>>>>> MailDoc.PostedDate = Now()
>>>>>>>> On Error GoTo errorhandler1
>>>>>>>> MailDoc.SEND 0, Recipient
>>>>>>>> Set Maildb = Nothing
>>>>>>>> Set MailDoc = Nothing
>>>>>>>> Set AttachME = Nothing
>>>>>>>> Set AttachME2 = Nothing
>>>>>>>> Set AttachME3 = Nothing
>>>>>>>> Set AttachME4 = Nothing
>>>>>>>> Set AttachME5 = Nothing
>>>>>>>> Set Session = Nothing
>>>>>>>> Set EmbedObj1 = Nothing
>>>>>>>> Set EmbedObj2 = Nothing
>>>>>>>> Set EmbedObj3 = Nothing
>>>>>>>> Set EmbedObj4 = Nothing
>>>>>>>> Set EmbedObj5 = Nothing
>>>>>>>> .ScreenUpdating = True
>>>>>>>> .DisplayAlerts = True
>>>>>>>> Exit Sub
>>>>>>>> End With
>>>>>>>> errorhandler1:
>>>>>>>> MsgBox Err.Description
>>>>>>>> Set Maildb = Nothing
>>>>>>>> Set MailDoc = Nothing
>>>>>>>> Set AttachME = Nothing
>>>>>>>> Set AttachME2 = Nothing
>>>>>>>> Set AttachME3 = Nothing
>>>>>>>> Set AttachME4 = Nothing
>>>>>>>> Set AttachME5 = Nothing
>>>>>>>> Set Session = Nothing
>>>>>>>> Set EmbedObj1 = Nothing
>>>>>>>> Set EmbedObj2 = Nothing
>>>>>>>> Set EmbedObj3 = Nothing
>>>>>>>> Set EmbedObj4 = Nothing
>>>>>>>> Set EmbedObj5 = Nothing
>>>>>>>> End Sub
>>>>>>>>
>>>>>>>> --
>>>>>>>>
>>>>>>>> ----------------------------------------------------------------------------------
>>>>>>>> Some important links for excel users:
>>>>>>>> 1. Follow us on TWITTER for tips tricks and links :
>>>>>>>> http://twitter.com/exceldailytip
>>>>>>>> 2. Join our LinkedIN group @
>>>>>>>> http://www.linkedin.com/groups?gid=1871310
>>>>>>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>>>>>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>>>>>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>>>>>>
>>>>>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>>>>>
>>>>>>>> <><><><><><><><><><><><><><><><><><><><><><>
>>>>>>>> Like our page on facebook , Just follow below link
>>>>>>>> http://www.facebook.com/discussexcel
>>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> --
>>>>>>> *Regards*
>>>>>>> * *
>>>>>>> *Ashish Koul*
>>>>>>> *akoul*.*blogspot*.com <http://akoul.blogspot.com/>
>>>>>>> http://akoul.posterous.com/
>>>>>>> *akoul*.wordpress.com <http://akoul.wordpress.com/>
>>>>>>> My Linkedin Profile<http://in.linkedin.com/pub/ashish-koul/10/400/830>
>>>>>>>
>>>>>>>
>>>>>>> P Before printing, think about the environment.
>>>>>>>
>>>>>>>
>>>>>>> --
>>>>>>>
>>>>>>> ----------------------------------------------------------------------------------
>>>>>>> Some important links for excel users:
>>>>>>> 1. Follow us on TWITTER for tips tricks and links :
>>>>>>> http://twitter.com/exceldailytip
>>>>>>> 2. Join our LinkedIN group @
>>>>>>> http://www.linkedin.com/groups?gid=1871310
>>>>>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>>>>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>>>>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>>>>>
>>>>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>>>>
>>>>>>> <><><><><><><><><><><><><><><><><><><><><><>
>>>>>>> Like our page on facebook , Just follow below link
>>>>>>> http://www.facebook.com/discussexcel
>>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>> --
>>>>
>>>> ----------------------------------------------------------------------------------
>>>> Some important links for excel users:
>>>> 1. Follow us on TWITTER for tips tricks and links :
>>>> http://twitter.com/exceldailytip
>>>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>>
>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>
>>>> <><><><><><><><><><><><><><><><><><><><><><>
>>>> Like our page on facebook , Just follow below link
>>>> http://www.facebook.com/discussexcel
>>>>
>>>
>>>
>>>
>>> --
>>> *Regards*
>>> * *
>>> *Ashish Koul*
>>> *akoul*.*blogspot*.com <http://akoul.blogspot.com/>
>>> http://akoul.posterous.com/
>>> *akoul*.wordpress.com <http://akoul.wordpress.com/>
>>> My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>
>>>
>>>
>>> P Before printing, think about the environment.
>>>
>>>
>>> --
>>>
>>> ----------------------------------------------------------------------------------
>>> Some important links for excel users:
>>> 1. Follow us on TWITTER for tips tricks and links :
>>> http://twitter.com/exceldailytip
>>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>
>>> To post to this group, send email to excel-macros@googlegroups.com
>>>
>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> Like our page on facebook , Just follow below link
>>> http://www.facebook.com/discussexcel
>>>
>>
>>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
--
*Regards*
* *
*Ashish Koul*
*akoul*.*blogspot*.com <http://akoul.blogspot.com/>
http://akoul.posterous.com/
*akoul*.wordpress.com <http://akoul.wordpress.com/>
My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>
P Before printing, think about the environment.
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
