embed image into mail body using access vba -


i using code below send out mails access attachment. searched everywhere no luck sokution attachment embeded mail body itself. can me out.

option compare database  option explicit  'declare public object variables public mkfdoc string public subject, attachment, recipient, copyto, bodytext, username, saveit  public maildb object        'the mail database public maildbname string    'the current users notes mail database name public maildoc object       'the mail document public attachme object      'the attachment richtextfile object public session object       'the notes session public embedobj object      'the embedded object (attachment)   public function sendnotes(byval strto string, byval attachment string, byval strsubject string, byval strbody string)  'set objects required automation lotus notes     subject = strsubject     'attachment = "c:\foldername\filename.extension"     recipient = split(strto, ",") 'set bodytext mail offer - language depends on field in offprofrm     bodytext = strbody 'start session notes         set session = createobject("notes.notessession") 'open mail database in notes         set maildb = session.getdatabase("", maildbname)         if maildb.isopen = true             'already open mail         else             maildb.openmail         end if 'set new mail document         set maildoc = maildb.createdocument         maildoc.form = "memo"         maildoc.sendto = recipient         maildoc.subject = subject         maildoc.body = bodytext         maildoc.savemessageonsend = true   'set embedded object , attachment , attach         if attachment <> ""             set attachme = maildoc.createrichtextitem("attachment")             set embedobj = attachme.embedobject(1454, "", attachment, "attachment")             maildoc.createrichtextitem ("attachment")         end if 'send document + notify         maildoc.posteddate = now() 'gets mail appear in sent items folder         maildoc.send 0, recipient 'clean         set maildb = nothing         set maildoc = nothing         set attachme = nothing         set session = nothing         set embedobj = nothing end function

a way create email included attachments in body field use mime format.

set body = maildoc.createmimeentity("body")  ...

have @ http://www-10.lotus.com/ldd/bpmpblog.nsf/dx/creating-a-mime-email-with-attachment , https://stackoverflow.com/a/2514633/2065611 how it.


Comments

Post a Comment

Popular posts from this blog

SPSS keyboard combination alters encoding -

my question not have programming practical issue on spss. accident keyword combination cannot remember because did not intend press changed encoding in spss , text in data in different language english shown small boxes. nevertheless, when kind of analysis performed different language text shown in output. does know reason? tried change encoding did not produce result. first, @ edit > options , see whether setting unicode or locale. might fix it. if have text in multiple languages, want unicode. otherwise, may have specific locale set wrong. can change set locale, need know locale want use.
Read more

Add new record to the table by click on the button in Microsoft Access -

in ms access form want implement separate button, adds new record table. in order added button , attached button event: private sub btnaddrec_click() refresh codecontextobject on error resume next docmd.gotorecord , , acnewrec if err.number <> 0 btnaddrec.enabled = false end if end end sub everything ok when open window , click btnaddrec button, problem when first of perform navigation through existed records , after click on button. got runtime error: 2105: «you can't go specified record. may @ end of recordset» . how solve issue, need have ability add new record on click on specific button, no matter, have walked or not walked through records before. thanks. i created simple form field call description (and autonumber) , created button code follows click event. filled number of records , navigated through them, clicked addnewrec button. form navigated new record without issues. able click addnewrec button directly after
Read more

javascript - jQuery .height() return 0 when visible but non-0 when hidden -

i have problem here right opposite others: in jquery cannot height of element when it's visible, when hidden. have html code: <div id="filtering-filter-holder"> <div id="filtering-filter-holder-inner"></div> </div> basic css it: #filtering-filter-holder { display: none; position: absolute; width: 420px; min-height: 100px; padding: 5px 5px 5px 5px; background-color: #ffffff; border: 1px solid #164372; } and finally, js in document.ready(): $('div.filtering-filter-headline').mouseenter(function() { var el = $(this).parent().find('div.filtering-filter-content'); if ($('div#filtering-filter-holder').is(':visible')) { $('div#filtering-filter-holder-inner').stop(true, true).fadeout(300, function() { $('div#filtering-filter-holder-inner').html($(el).html()); var height = $('div#filtering-filter-holder-inner&#
Read more