VBA : Embedded with HTML local images on Lotus Notes -


i'm trying embedded local images on lotus notes using html vba got square cross image (which means : no success)

embbedded image error

i have 2 codes, 1 convert local images xml send email. here there :

1-convert images xml

function img64(fichier)     dim buffer() byte, intfilenumber, fso object, objxml object, objnode object     intfilenumber = freefile     set fso = createobject("scripting.filesystemobject")     redim buffer(fso.getfile(fichier).size)     set fso = nothing     open fichier binary #intfilenumber     while not eof(intfilenumber)         #intfilenumber, , buffer     wend     close #intfilenumber     set objxml = createobject("msxml2.domdocument")    '.domdocument     set objnode = objxml.createelement("b64") 'msxml2.ixmldomelement     objnode.datatype = "bin.base64"     objnode.nodetypedvalue = buffer     img64 = objnode.text     set objnode = nothing     set objxml = nothing end function

2 - send email

function sendemail()  dim nmailbody string dim nmailsubject string dim nmailrecipient variant dim nmail object dim nsession object dim ndatabase object dim nmime object dim nmailstream object dim nchild object dim nsomemailbodytext string dim amountofrecipients integer        bodyhtml = "<img src=""data:image/gif;base64," & img64("c:\users\someone\desktop\image_1.gif") & """/>"  nsomemailbodytext = bodyhtml nmailrecipient = "" nmailsubject = "a great email"  set nsession = createobject("notes.notessession") set ndatabase = nsession.getdatabase("", "") call ndatabase.openmail set nmail = ndatabase.createdocument  nmail.sendto = "hello@world.com" nmail.subject = "hello@world.com"  nsession.convertmime = false set nmime = nmail.createmimeentity set nmailstream = nsession.createstream  'vbody containung text in html call nmailstream.writetext(nsomemailbodytext) call nmailstream.writetext("<br>")  '-------------------------------------------------------------------  set nchild = nmime.createchildentity call nchild.setcontentfromtext(nmailstream, "text/html;charset=iso-8859-1", enc_none) nsession.convertmime = true call nmailstream.close call nmail.save(true, true) 'make mail editable user createobject("notes.notesuiworkspace").editdocument true, nmail 'could send here end function

the picture correct , not large neither small. had tried extension/image well. may not due of picture ...

the version of lotus notes i'm using bm lotus notes 8.5 - edition 8.5.2fp4 révision 20111118.0756-fp4 (release 8.5.2fp4)

please !

great thanks


Comments

Post a Comment

Popular posts from this blog

inversion of control - Autofac named registration constructor injection -

does autofac support specifying registration name in components' constructors? example: ninject's namedattribute . you need use autofac.extras.attributed package on top achieve this so let's have 1 interface , 2 classes: public interface ihello { string sayhello(); } public class englishhello : ihello { public string sayhello() { return "hello"; } } public class frenchhello : ihello { public string sayhello() { return "bonjour"; } } then have consumer class, in want select instance injected: public class helloconsumer { private readonly ihello helloservice; public helloconsumer([withkey("en")] ihello helloservice) { if (helloservice == null) { throw new argumentnullexception("helloservice"); } this.helloservice = helloservice; } public string sayhello() { return this.helloservice.sayhello()...
Read more

verilog - Systemverilog dynamic casting issues -

i've code snippet following in testbench function void write_to_port( my_data_type_base data ); my_data_type_extended data_ext; if(!$cast(data_ext, data)); `uvm_error(get_type_name(), "failed cast"); `uvm_info(get_name(), $psprintf("data_ext :\n%s", data_ext.sprint()), uvm_medium) // write data_ext out port.... endfunction when run it, i'm getting uvm_error "failed cast." i'm not quire sure why $cast not returning 1. can see, i'm printing out extended class data item after casting uvm_info. can see it's being cast properly. if don't use $cast if condition, don't runtime error. isn't coding practice use if dynamic cast check if $cast returning 1 ? what might reason behind cast not returning 1 in above case? i think semicolon on line 'if' not belong? i think consumes if statement, , uvm_error executes regardless of how if evaluates: if(!$cast(data_ext, data)); <- no semico...
Read more

ios - Change Storyboard View using Seague -

i have following code checks connection server, , depending on want change views if no connection found. nsstring *connect = [nsstring stringwithcontentsofurl:[nsurl urlwithstring:@"http://myserver.com"] encoding:nsutf8stringencoding error:nil]; if (connect == null) { [self performseguewithidentifier:@"network_failure" sender:self]; } else { // other code here } my problem not change views. have added storyboard segue between 2 views identifier of network_failure . not have navigation controller or that, problem? thanks help! no not problem. first of all, in objectivec exists nil object oriented null . must use that. so: if(connect == nil) or better: if(!connect) so due fact nil not same of null , probably code does't enter in if scope . you have been able discover breakpoint. anyway: be sure set trigger segue (line) 2 view controller , , name network_failure (that not best name. should instead view1toview2 ) as, m...
Read more