VBA: Attach excel file as well PDF copy of same excle to an email on single button click in excel -

-

The VBA code to create a PDF file in Excel and attached to the button to me. I am thinking that it is possible to attach both PDFs and Excel files to an email with one click. Please find the below code which I am trying to modify .. bold section showing the two functions. Any suggestions or help greatly appreciated !! Thank you 

  Sub Button1_Click () as dim EmailSubject string EmailSignature String Dim Email_Body string dim olMailItem object as dim 'form object as dim objMail CurrentMonth string, string, PDFFile as DestFolder as as as dim as string as the olFormatHTML dim Email_To string, as Email_CC string Email_BCC string dim OpenPDFAfterCreating Boolean, AlwaysOverwritePDF as Boolean, DisplayEmail Boolean dim OverwritePDF VbM sgBoxResult as dim OutlookApp object, as as as OutlookMail object 'CurrentMonth = "" dim fName string as string as as eCode1, eCode2 as string, fNameLong as string '**************************************** ***** *************** you can change these variables ********* 'Excel funnel name Create = "user access request:" eCode1 = Sheet1.Range ( " B7 "). value Ikod 2 = range (" B7 "). value fNameLong = fName & amp; "" & Amp; Encoded 1 & amp; "-" & amp; ECode2 EmailSubject = "abs" Change it to change the theme of "e-mail this instead if you ever want to overwrite a PDF already exists: the current month until the end of subj line OpenPDFAfterCreating = false 'right or wrong AlwaysOverwritePDF = truth instead if you note you want to open PDF after making it 'is added tRUE or FALSE DisplayEmail = true' change it if you do not want e-mail before sending the e-mail address to your email address For e-mail There should be an address email tag = "ABC" Change this if you want to specify email. = Name XlTypePDF, file :: = PDFFile, Quality: = xlQualityStandard, IncludeDocProperties: = ActiveSheet.Range ( "H1") cell H1 Email_CC = "Xyzkcom" Email_BCC = "" 'Create PDF ActiveSheet.ExportAsFixedFormat type This is true for receiving emails, IgnorePrintAreas _: = false, OpenAfterPublish: OpenPDFAfterCreating ** DialogSendMail.Show ") Set OutlookMail = OutlookApp.CreateItem 'Set up an Outlook object and new mail message OutlookApp = CreateObject (" Outlook .application ") Create '(0)' create file excellence but another email is Application.Dialogs (xlDialogSendMail) .Show" xyz ", for fNameLong ** Display email and specify For Outlook, with the theme, etc., please display .Display. Campaign = Email_To .cc = Email_CC .bcc = Email_BCC .Subject = EmailSubject & CurrentMonth .Attachments.Add PDFFile then DisplayEmail = false then .Send`enter code here` finally ending with the end Sub


Comments

Post a Comment

Popular posts from this blog

HTML/CSS - Automatically set height width from background image? -

-
Long time ... I do not think it's possible, but I'm shocked before! I tag anchor tags, all of which are background images, all 300px wide but their height is all the difference, is it really set to do without typing altitude? Is it to set the dimensions of BG URL? Thank you! I do not think people understand - my mistake is to hurry the question. Here is the code as an example: # ago -1 {width: 300px; Height: 410px; Background: url ('/ image-1.jpg');} # East -2 {width: 300px; Height: 420px; Background: url ('/ image-2.jpg');} # Pre-3 {width: 300px; Height: 430px; Background: url ('/ image-3.jpg');} # Pre-4 {width: 300px; Height: 440px; Background: url ('/ image-3.jpg');} & lt; A href = "#" id = "ex-1" & gt; & Lt; / A & gt; & Lt; A href = "#" id = "ex-2" & gt; & Lt; / A & gt; & Lt; A href = "#" id = "pre-3" & gt; & Lt; / A & gt...
Read more

php - Mysql Show Process - Sleep Commands and what to do -

-
I am thinking that there is something that I can do better so that my process list should start with the command with MySQL Be clear Currently I am looking for a lot: 17325 user_a localhost db_1 sleep 1132 NULL 17464 user_a localhost db_1 sleep 1124 NULL 17983 user_a localhost db_1 sleep 1078 null 18113 user_a localhost db_1 sleep 1068 NULL 18207 user_a localhost db_1 sleep 1060 NULL 18231 user_a localhost db_1 sleep 1058 NULL 18353 user_a localhost db_1 sleep 1047 NULL 18447 user_a localhost db_1 sleep 1040 null 18489 user_a localhost db_1 sleep 1036 NULL 23408 user_a localhost db_1 sleep 637 NULL Something in my phpscript is that I want to clean it Can i The script looks like: Select the ID from $ q = 'db_1 where fkId = 2'; $ Ar = mysql_query ($ q); ($ Line = mysql_fetch_array ($ qr)) {echo ($ row ['id'];} Thanks in advance! I'm guessing that when you have 10 threads, you're constantly using the connectio...
Read more

c - What is the address of buf (the local variable in the main function)? -

-
I had exercise with programming in c or classes and I followed the question: Is Buf (local variable in main function)? Either enter the answer in hexadecimal format (like 0x 8 "digits" 0-9 or A-F, 0xbfff0014) or in decimal format. Note here that we want the address of the buff, not its content. The code looks like this: int main (int argc, char * argv []) {while (1) {four buff [1024] = {0}; Int r; .... I then started the code and put the built code in the buff [1024] line and in Typed Gdb p & amp; Buf and it gives me results: 0xbffff0f0 But when I use it in this quiz it gives me the result that this value is wrong. My question is this: Is this the name of the Buff variable (P & E)? Or if not, why not? Exercise is done on the virtualbox machine, so I think everyone should be the same address There is no correct numerical answer, the address may vary from one time to another, it is a programming drill that you say the following three...
Read more