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
