excel - VBA Loop Send Email With Attachment Using IBM Notes? -


i have workbook so:

column g        column w  file1.xls       recipient1@email.com file2.xls       recipient2@email.com

i want send email using ibm notes each recipient in list in column w.

the same email can sent each recipient, email needs addressed each recipient separately.

in addition, want attach each of corresponding files each email.

i.e. email sent recipient 1 have file 1 attached etc.

here code:

        sub email()  'for tips see: http://www.rondebruin.nl/win/winmail/outlook/tips.htm 'working in office 2000-2016  'variables dim cell range  application.screenupdating = false  dim maildb object dim maildoc object dim body object dim session object  'start session of lotus notes set session = createobject("lotus.notessession")  'this line prompts password of current id noted in notes.ini call session.initialize("perry2011") 'open mail database of lotus notes set maildb = session.getdatabase("", "c:\users\obrienm\appdata\local\ibm\notes\data\as_mobrien.nsf") if not maildb.isopen = true     call maildb.open end if  'loop  'on error goto cleanup each cell in columns("w").cells.specialcells(xlcelltypeconstants)     if cell.value "?*@?*.?*" , _         lcase(cells(cell.row, "g").value) <> ""          'email code         set maildoc = maildb.createdocument           maildoc            .sendto = cell.value            .copyto = ""            .subject = "pasted excel cells " &      'email body text, including marker text replaced excel cells      .body = "text in email body" & vbnewline & vbnewline & _     "**paste excel cells here**" & vbnewline & vbnewline & _     "excel cells shown above"      set notesrichtextitem = .createrichtextitem("body") notesrichtextitem.appendtext ("text in email body") notesrichtextitem.addnewline (2) notesrichtextitem.appendtext ("**paste excel cells here**") notesrichtextitem.addnewline (2) notesrichtextitem.appendtext ("excel cells shown above") notesrichtextitem.addnewline (1) 'and here comes attachment: call notesrichtextitem.embedobject(embed_attachment, "", cell.offset(0, -19).value)            'example save message (optional) in sent items         maildoc.savemessageonsend = true          'send document         'gets mail appear in sent items folder         call maildoc.replaceitemvalue("posteddate", now())         call maildoc.send(true)          'clean object variables - recover memory         'end loop  end          'on error goto 0         set outmail = nothing     end if  next cell  cleanup: set maildb = nothing set maildoc = nothing set body = nothing set session = nothing  application.screenupdating = true end sub

for reason error on line:

 .sendto = cell.value

i'm not sure why have verified contents of cell.value , is:

mark.obrien@inbox.co.uk etc.

which proper email format.

please can show me going wrong?


-

Comments

Post a Comment

Popular posts from this blog

python - How to insert QWidgets in the middle of a Layout? -

Image
i'm using qt framework build graphical user interface. use qgridlayout position qwidgets neatly. gui looks this: my application regularly adds new widgets gui @ runtime. these new widgets not added @ end of qlayout, somewhere in middle. the procedure bit cumbersome. applied on figure above, need take out widg_c , widg_d , ... qgridlayout. next, add widg_x and widg_y , , put other widgets again. how remove widgets qgridlayout: for in reversed(range(mygridlayout.count())): self.itemat(i).widget().setparent(none) ### as long you're dealing small amount of widgets, procedure not disaster. in application display lot of small widgets - perhaps 50 or more! application freezes second while procedure ongoing, annoying user. there way insert widgets somewhere in qlayout, without need take out other widgets? edit: apparently solution qvboxlayout simple. use function insertwidget(..) instead of addwidget(..) . docs can found link: http://doc.qt.io/qt-5/qboxlayou
Read more

python - serve multiple gunicorn django instances under nginx ubuntu -

i need serve 2 webs apps (django) on gunicorn under different domain names using nginx on ubuntu. started using tutorial: https://www.digitalocean.com/community/tutorials/how-to-set-up-django-with-postgres-nginx-and-gunicorn-on-ubuntu-16-04 it worked fine 1 using that. tried same thing second gives me 502 gateway second domain. tried following tutorial: http://michal.karzynski.pl/blog/2013/10/29/serving-multiple-django-applications-with-nginx-gunicorn-supervisor/ i'm @ part run gunicorn start script: sudo bin/gunicorn_start i response: starting webuildblack root traceback (most recent call last): file "/home/devin/webuildblack/bin/gunicorn", line 7, in <module> gunicorn.app.wsgiapp import run importerror: no module named 'gunicorn.app'; 'gunicorn' not package you have named program gunicorn.py gunicorn -package. rename file , remove gunicorn.pyc file.
Read more

module - Prestashop displayPaymentReturn hook url -

i new prestashop developer , trying create paymentmodule. have got show payment method can not proceed purchase because not know hot works. does know should redirect run hooddisplaypaymentreturn method? i happy if explain me complete navigation map make purchase. anyway, can find relation between hooks , pages? when have new module payment rely on simplest provided prestashop: bankwire. inside can find 3 hooks. hookpayment: public function hookpayment($params) { if (!$this->active) return; if (!$this->checkcurrency($params['cart'])) return; $this->smarty->assign(array( 'this_path' => $this->_path, 'this_path_bw' => $this->_path, 'this_path_ssl' => tools::getshopdomainssl(true, true).__ps_base_uri__.'modules/'.$this->name.'/' )); return $this->display(__file__, 'payment.tpl'); } hookdisplaypaymenteu: public fun
Read more