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
