vba - MS Access / Outlook 2010 - how to choose which account to send email from? -


i trying send emails specific account sends main no matter how code try or do. there way tell send particular account? writing code in ms access, using outlook objects.

sub testemail()     on error resume next     set outapp = getobject(, "outlook.application")      if outapp nothing         set outapp = createobject("outlook.application")     end if       set omail = outapp.createitem(olmailitem)      omail         .to = "randomaddress@randomdomain.com"         .subject = "test2"          .send     end      set outapp = nothing     set omail = nothing  end sub

updated code:

option compare database  sub testemail()     on error resume next     set oapp = createobject("outlook.application")     set omail = oapp.createitem(olmailitem)     set olaccount = oapp.account     set olaccounttemp = oapp.account     dim foundaccount boolean     dim strfrom string     strfrom = "fromaddy@randomaddress.com"          foundaccount = false     set olaccounts = oapp.application.session.accounts     each olaccounttemp in olaccounts         debug.print olaccounttemp.smtpaddress         if (olaccounttemp.smtpaddress = strfrom)             set olaccount = olaccounttemp             foundaccount = true             exit         end if     next      if foundaccount         debug.print "acct found!"         omail             .to = "randomaddress@random.com"             .body = "message!"             .subject = "test3"             .sendusingaccount = olaccount         end     else         debug.print "no acct found"     end if      set oapp = nothing     set omail = nothing     set olaccounts = nothing     set olaccount = nothing     set olaccounttemp = nothing end sub

try using 

set omail.sendusingaccount=olaccount

instead of 

omail.sendusingaccount=olaccount

it worked me, code perfect, set missing.


Comments

Post a Comment

Popular posts from this blog

c++ - End of file on pipe magic during open -

i have c++ application in starting process(wireshark) following. if (fp == null){ fp = popen(processpath, "r"); //processpath process want start if (!fp){ throw std::invalid_argument("cannot start process"); } fprintf(fp, d_msg);//d_msg input want provide process } else if(fp != null){ fprintf(fp, d_msg); } the problem when execute c++ application, start wireshark error end of file on pipe magic during open what should avoid that? also tried using mkfifo create named pipe , execute it. used this: if (fp == null){ system("mkfifo /tmp/mine.pcap"); fp = popen("wireshark -k -i /tmp/mine.pcap", "r"); if (!fp){ dout << "cannot start wireshark"<<std::endl; throw std::invalid_argument("cannot start wireshark"); } input = fopen("/tmp/mine.pcap", "wb"); fprintf(input , d_msg); fclose(input)...
Read more

basic authentication with http post params android -

i doing basic authentication passing username , password , using basicnamevaluepair sending post params response service. my method: public stringbuilder callservicehttppost(string username, string password, string type) { // create new httpclient , post header httpclient httpclient = new defaulthttpclient(); httppost httppost = new httppost(webservice + type); httpresponse response = null; stringbuilder total = new stringbuilder(); try { url url = new url(webservice + type); /*string base64encodedcredentials = base64.encodetostring((username + ":" + password).getbytes(), base64.url_safe | base64.no_wrap);*/ string base64encodedcredentials = "basic " + base64.encodetostring( (username + ":" + password).getbytes(), base64.no_wrap); httppost.setheader("auth...
Read more

data.table making a copy of table in R -

i doing this: myfun <- function(inputvar_vec){ # inputvar_vec input vector # # result = output vector return(result) } dt[, result := lapply(.sd, myfun), = byvar, .sdcols = inputvar] i getting following warning: warning message: `in `[.data.table`(df1, , `:=`(prop, lapply(.sd, propeventinlastk)), : invalid .internal.selfref detected , fixed taking copy of whole table, := can add new column reference. @ earlier point, data.table has been copied r (or been created manually using structure() or similar). (and more stuff) .... ` my guess because stacking result vectors (after operation), copy being made? can suggest method remove warning? have done using apply functions , thought should extendable here too. my other question is: can pass chunk of rows data frame (subsetted using statement), , call function myfun operate on that? adding example requested # generate data n = 10000 default=na value = 1 df = data.table(id = sample(1:5000, n, replace=true), ...
Read more