+ Reply to Thread
Page 2 of 2 FirstFirst 1 2
Results 11 to 13 of 13

composing an email from form data

  1. Re: composing an email from form data

    DeZZar wrote:

    > no worries Salad! All your help deserves a mention. Your right -
    > this is a good group and has been a life saver a few times over
    > already!!
    >
    > Heres another one. I've been looking at the code supplied for Lotus
    > notes mailing. This code sends the email directly as setup without
    > making it appear in your default mail client. It works well...but for
    > some reason I can't get the attachement part of it work.
    >
    > If the file I want to attach to the email was:
    > X:\Leaselocks\VIC\Document.rtf
    >
    > what would I make this code look like to make it work?
    > (This is just the attachement portion of the code)
    >
    > If Attachment <> "" Then
    > Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
    > Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment,
    > "Attachement")
    > MailDoc.CREATERICHTEXTITEM ("Attachment")
    > End If
    >


    I've never worked with Lotus Notes. But I went to Tony Toews site.
    http://www.granite.ab.ca/_vti_bin/shtml.dll/search.htm
    and I searched on the words
    Lotus Notes
    Check out what he has to say over there. Hopefully there'll be a
    solution in one of the links.

    This is a great day, America!




  2. Re: composing an email from form data

    solved the problem in the meantime (trial and error!!)

    all you need from the code i posted above is this bit:

    Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachemt")
    Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", "X:\Leaselocks\" &
    Forms!frm_Leaselocks!GetDirectory)
    MailDoc.CREATERICHTEXTITEM ("Attachement")

    Done!!

  3. Re: composing an email from form data

    FWIW, I've updated/modified a function from Roger's Access Library
    (http://www.rogersaccesslibrary.com/f...sts.asp?TID=52) to
    work with Access/Word/Outlook 2007. Interested?

    Public Function SendReportInMailBody(ByVal ReportName As String, ByVal
    MailAddresses As String, Optional ByVal MailSubject As String, Optional
    ByVal MailBody As String)

    *** Sent via Developersdex http://www.developersdex.com ***

+ Reply to Thread
Page 2 of 2 FirstFirst 1 2