excel - VBA How do I place HTML in an email that sends through an Access module -

-

i have vba code has been given me sends email attachment through ms access:

sub email_send()   dim strto string dim strcc string dim strfrom string dim strsubject string dim strmessage string dim intnrattch integer dim strattachments string dim strattachments2 string dim contact_name string dim email_address string dim cc_address string dim column1 adodb.recordset dim cnndb adodb.connection dim area string dim connection string dim basepath string dim region string dim column2 string dim upc string dim name string dim firstname string dim title string dim surname string dim bold string dim string  basepath = "my path"  set cnndb = new adodb.connection cnndb .provider = "microsoft.jet.oledb.4.0" .connectionstring = "my connection string" .open end  set rstrst = new adodb.recordset rstrst .source = "select [column1], [column2], [column3]" & _         "from table1"      rstrst.open , cnndb     rstrst.movefirst       while not rstrst .eof         column1 = rstrst.fields("column1")         column2 = rstrst.fields("column2")         column3_address = rstrst.fields("column3")           dim greeting string         if time >= #12:00:00 pm#             greeting = "afternoon,"         else             greeting = "morning,"         end if          dim currentmonth string         currentmonth = monthname(month(date))          strmessage = "good" & greeting & chr(13)         strmessage = strmessage & chr(13)         strmessage = strmessage & "...text..." & chr(13)         strmessage = strmessage & chr(13)         strmessage = strmessage & "...text..." & chr(13)         strmessage = strmessage & "" & chr(13)         strmessage = strmessage & "...text..." & chr(13)         strmessage = strmessage & "" & chr(13)         strmessage = strmessage & "...text..." & chr(13)         strmessage = strmessage & "" & chr(13)         strmessage = strmessage & "...text..." & chr(13)         strmessage = strmessage & "...text..." & chr(13)         strmessage = strmessage & chr(13)         strmessage = strmessage & "...text..." & chr(13)         strmessage = strmessage & "...text..." & chr(13)          strto = email_address         'strcc = cc_address         strsubject = "information: ...text..." & column2 & "...text..."         intnrattch = 1              strattachments = basepath & column1 & "file.xls"          call sendmessageto(strto, strsubject, strmessage, intnrattch,     strattachments)          rstrst.movenext     loop  msgbox "sent"  nowexit:  end sub  public function sendmessageto(strto string, strsubject string,     strmessage string, intnrattch integer, strattachments string)     boolean  const nr = 9 dim myoutlook object dim mymessage object dim objnamespace dim strfiles(nr) string dim strpromt string dim integer, intlen integer dim intstart, intpos integer   on error goto error_handler  sendmessageto = false set myoutlook = createobject("outlook.application") set mymessage = myoutlook.createitem(0)  if strto = ""     strpromt = "you need specify e-mail address wich want send e-mail"     msgbox strpromt, vbinformation, "send message to... ?"     exit function end if  if intnrattch > nr + 1     strpromt = "you can add " & nr + 1 & " attachments. if want     add more need change array size"     msgbox strpromt, vbcritical, "number of attachments" end if  intstart = 1 intlen = 0 if strattachments <> ""     = 0 intnrattch - 1         if < intnrattch - 1             intlen = instr(intstart, strattachments, ";") - intstart + 1             strfiles(i) = trim(mid(strattachments, intstart, intlen - 1))             intstart = intstart + intlen     else             strfiles(i) = trim(mid(strattachments, intstart,             len(strattachments) - intstart + 1))     end if     next end if  intpos = len(strmessage) + 1 mymessage .to = strto .subject = strsubject .body = strmessage    strattachments = "1"     if     strattachments <> ""     = 0 intnrattch - 1         .attachments.add strfiles(i), 1, intpos     next end if .send end   set mymessage = nothing set myoutlook = nothing sendmessageto = true  error_handler_exit: exit function  error_handler: msgbox err.number & " : " & err.description, vbcritical, error resume error_handler_exit  end function

what want use html format strmessage = "...text..." example put in bold.

i have tried doing following:

set mymessage = myoutlook.createitem(0) mymessage    .htmlbody = .htmlbody & "<br><b>weekly repport:</b><br>" _             & "<img src='cid:dashboardfile.jpg'" & "width='814' height='33'><br>" _             & "<br>best regards,<br>ed</font></span>" end

i have looked @ various websites, including: http://vba-useful.blogspot.co.uk/2014/01/send-html-email-with-embedded-images.html cannot work.

how can this?

first of all, don't mix .body , .htmlbody. pick one. want formatting & pic, .htmlbody need.

second: don't mix upper case , lower case html tags. use lower.

third: watch out invalid html, closing font , span tag have never been opened. use <br /> instead of <br> (outdated).

fourth: set htmlbody entirely, not append it.

i don't know whether img display that's step 2 anyway. being said, try this:

mymessage.htmlbody = "<p class=msonormal>" & strmessage & "<br /><b>weekly report:</b><br />" _             & "<img src='cid:dashboardfile.jpg' width='814' height='33' /><br />" _             & "<br />best regards,<br />ed</p>"

edit: if wish keep line breaks in strmessage, replace chr(13) <br /> first.


Comments

Post a Comment

Popular posts from this blog

python - How to create jsonb index using GIN on SQLAlchemy? -

-
here's current code creating index jsonb. index("mytable_data_idx_id_key", mytable.data['id'].astext, postgresql_using='gin') but got error. sqlalchemy.exc.programmingerror: (psycopg2.programmingerror) data type text has no default operator class access method "gin" hint: must specify operator class index or define default operator class data type. [sql: "create index event_data_idx_id_key on event using gin ((data ->> 'id'))"] is there way create index on sqlalchemy? the postgresql specific sqlalchemy docs @ http://docs.sqlalchemy.org/en/latest/dialects/postgresql.html#operator-classes mention postgresql_ops dictionary provide "operator class" used postgresql, , provide example illustrating use: index('my_index', my_table.c.id, my_table.c.data, postgresql_ops={ 'data': 'text_pattern_ops', ...
Read more

PHP DOM loadHTML() method unusual warning -

-
i had following code works fine on localhost: $document = new domdocument(); $document->loadhtml($p_result); $form = $document->getelementsbytagname('form')->item(0); // code continues using $form variable after same code updated on outside server, loadhtml() failed , issued warning. warning: domdocument::loadhtml() expects parameter 1 valid path, string given in path/name/to/script.php returned null instead of object code pretty gets fatal error. note contents of $p_result absolutely same on outside server , on localhost. but why displays kind of warning , why not work? doesn't loadhtml() expects argument 1 string in first place? why method expects parameter 1 valid path ? just make clear i'm not calling loadhtmlfile() , i'm calling loadhtml() . thanks. you're affected one of php bugs . issue present in php 5.6.8 , 5.6.9. have affected php version on server, , bug-free version on localhost. the bug forbids null ...
Read more

c# - TransactionScope not rolling back although no complete() is called -

-
i'm using transactionscope rollback transaction fail bool errorreported = false; action<importerrorlog> newerrorcallback = e => { errorreported = true; errorcallback(e); }; using (var transaction = new transactionscope()) { foreach (importtaskdefinition task in taskdefinition) { loader.load(streamfile, newerrorcallback, task.destinationtable, processingtaskid); } if (!errorreported) transaction.complete(); } i'm sure there no transactionscope started ahead or after code. i'm using entity framework insert in db. regardless state of errorreported transaction never rolled in case of error. what missing ? transactionscope sets transaction.current . that's does. wants transacted must @ property. i believe ef each time connection opened reason. probably, connection open when scope installed. open connection inside of scope or enlist manually. ef has nasty "design decision": default opens ...
Read more