Attach both pdf and excel files to an email on single click in VBA -



Attach both pdf and excel files to an email on single click in VBA -

i have vba code create pdf file in excel , attache email on button click. wondering if possible attach both pdf , excel file email on single click. please find below code trying modify.. bold section showing 2 functions. suggestion or help appreciated !!

sub button1_click() dim emailsubject string, emailsignature string dim email_body string dim olmailitem object 'dim olformathtml form dim objmail object dim currentmonth string, destfolder string, pdffile string dim email_to string, email_cc string, email_bcc string dim openpdfaftercreating boolean, alwaysoverwritepdf boolean, displayemail boolean dim overwritepdf vbmsgboxresult dim outlookapp object, outlookmail object 'currentmonth = "" dim fname string, ecode1 string, ecode2 string, fnamelong string ' ***************************************************** ' ***** can alter these variables ********* 'create excel fname = "user access request:" ecode1 = sheet1.range("b7").value ecode2 = range("b7").value fnamelong = fname & " " & ecode1 & " - " & ecode2 emailsubject = "abs" 'change alter subject of email. current month added end of subj line openpdfaftercreating = false 'change if want open pdf after creating : true or false alwaysoverwritepdf = true 'change if want overwrite pdf exists :true or false displayemail = true 'change if don't want display email before sending. note, must have email address specified work email_to = "abc" 'change if want specify email e.g. activesheet.range("h1") email cell h1 email_cc = "xyz.com" email_bcc = "" 'create pdf activesheet.exportasfixedformat type:=xltypepdf, filename:=pdffile, quality:=xlqualitystandard, includedocproperties:=true, ignoreprintareas _ :=false, openafterpublish:=openpdfaftercreating ** 'create outlook object , new mail service message set outlookapp = createobject("outlook.application") 'dialogs (dialogsendmail).show ") set outlookmail = outlookapp.createitem(0) 'create excel file email application.dialogs(xldialogsendmail).show "xyz", fnamelong ** 'display email , specify to, subject, etc outlookmail .display .to = email_to .cc = email_cc .bcc = email_bcc .subject = emailsubject & currentmonth .attachments.add pdffile if displayemail = false .send end if end end sub

with outlookmail .display .to = email_to .cc = email_cc .bcc = email_bcc .subject = emailsubject & currentmonth .attachments.add pdffile .attachments.add "[excel file path goes here]" 'add line if displayemail = false .send end if end

vba

Comments

Post a Comment

Popular posts from this blog

Delphi change the assembly code of a running process -

Delphi change the assembly code of a running process - i'm trying alter address 00741fa5 has push test.009e721c . alter push test.009e71c8 . procedure callback; asm force $9e71c8 end; procedure tform2.btn1click(sender: tobject); var ppid :dword; pprocess : cardinal; begin getwindowthreadprocessid(findwindow(nil,pchar('test')), @ppid); pprocess := openprocess(process_all_access, false, ppid); injectasm(pprocess, $741fa5, 10, integer(@callback), 0); end; here injectasm function (with error checking) function injectasm(process: longword; injectaddress, injectsize, codeaddress, codesize : integer): pointer; var csize, rsize : integer; replaced : array of byte; jmp : array [0..4] of byte; jmpaddress : integer; nopv : byte; : integer; nbr: ulong_ptr; begin //injectsize must equal or greater 5, because need space our //(far) jmp wwxxyyzz instruction //if there's no space, inject in place of few instructions if injectsize ...
Read more

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) -

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) - hello have problem hibernate , jackson. have 2 pojos @entity @table(name = "users") public class user implements serializable { static final long serialversionuid = 4235637833262722256l; @id @generatedvalue private int id; @column(name = "creation_date") private date creationdate; @column(name = "first_name") private string firstname; @column(name = "last_name") private string lastname; @version @column(name = "version") private int version; @column(name = "e_mail") private string email; @column(name = "enabled") private boolean enabled; @column(name = "login") private string login; @column(name = "password") private string password; @jsonmanagedreference("role") @onetomany(mappedby = "user", cascade = cascadetype.all,fetch = fetchtyp...
Read more

C++ 11 "class" keyword -

C++ 11 "class" keyword - i've started using c++ 11 little bit more , have few questions on special uses of class keyword. know it's used declare class, there's 2 instances have seen don't understand: method<class t>(); and class class_name *var; why precede typename keyword class in first example, , keyword pointer in sec example? that known elaborated type specifier , necessary when class name "shadowed" or "hidden" , need explicit. class t { }; // love of god don't t t; t t2; if compiler smart, give these warnings: main.cpp:15:5: error: must utilize 'class' tag refer type 't' in scope t t2; ^ class main.cpp:14:7: note: class 't' hidden non-type declaration of 't' here t t; ^ if class not defined, deed forwards declaration. for example: template <typename t> void method() { using type = typename t::value_type; } method...
Read more