Hi , I have got a code which does the work of sending emails using Lotus notes. However I am not able to append the signature. Require ur input on how to *include the signature at the end using macro*.Looking forward to your response.
Sub SendWithLotus() Dim noSession As Object, noDatabase As Object, noDocument As Object Dim obAttachment As Object, EmbedObject As Object Dim stSubject As Variant, stAttachment As String Dim vaRecipient As Variant, vaMsg As Variant Const EMBED_ATTACHMENT As Long = 1454 Const stTitle As String = "Active workbook status" Const stMsg As String = "The active workbook must first be saved " & vbCrLf _ & "before it can be sent as an attachment." 'Check if the active workbook is saved or not 'If the active workbook has not been saved at all. If Len(ActiveWorkbook.Path) = 0 Then MsgBox stMsg, vbInformation, stTitle Exit Sub End If 'If the changes in the active workbook have been saved or not. If ActiveWorkbook.Saved = False Then If MsgBox("Do you want to save the changes before sending?", _ vbYesNo + vbInformation, stTitle) = vbYes Then _ ActiveWorkbook.Save End If For i = 2 To 100 If (Range("d" & i).Value = "") Then Exit For Else vaRecipient = Range("D" & i).Value vaMsg = Range("G" & i).Value stSubject = Range("F" & i).Value End If 'stAttachment = ActiveWorkbook.FullName 'Instantiate the Lotus Notes COM's Objects. Set noSession = CreateObject("Notes.NotesSession") 'Set noDatabase = GetDatabase("server/servername", "SO\Se\Sose.nsf") Set noDatabase = noSession.GetDatabase("", "") 'If Lotus Notes is not open then open the mail-part of it. If noDatabase.IsOpen = False Then noDatabase.OPENMAIL 'Create the e-mail and the attachment. Set noDocument = noDatabase.CreateDocument 'Set obAttachment = noDocument.CreateRichTextItem("stAttachment") 'Set EmbedObject = obAttachment.EmbedObject(EMBED_ATTACHMENT, "", stAttachment) 'Add values to the created e-mail main properties. With noDocument .Form = "Memo" .SendTo = vaRecipient .Subject = stSubject .Body = vaMsg .SaveMessageOnSend = True End With 'Send the e-mail. With noDocument .PostedDate = Now() .Send 0, vaRecipient End With 'Release objects from the memory. Set EmbedObject = Nothing Set obAttachment = Nothing Set noDocument = Nothing Set noDatabase = Nothing Set noSession = Nothing Next i End Sub Rgds, Bharghav Ramdas -- ---------------------------------------------------------------------------------- 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