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
