strbody

I have VBA code that would open an new email and I want to add : Hello, <Email body text stored in as String Variable inserted here> <Chart copied from Excel inserted here> <Standard Signature inserted Here> I have the following code. It all works except that the Chart is inserted after...

This is the start of the code: Sub Button1_Click() Dim CDO_Mail As Object Dim CDO_Config As Object Dim SMTP_Config As Variant Dim strSubject As String Dim strFrom As String Dim strTo As String Dim strCc As String Dim strBcc As String Dim strBody As String strSubject = "MHR Request" strFrom =...

I tried using this macro that I found on the web and it tells me "User defined type not defined" and points to "objGW As GoupwareTypeLibrary.Application". I thought that this was defined with the Dim statement below? Here is the macro... Sub send_mail() DoCmd.Hourglass True Dim strFrom...

I have the following macro to email a specific sheet I need to amend this to add sheet 'dashboard' to be attached to email 'Copy the ActiveSheet to a new workbook Sheets("overaged").Copy Set Destwb = ActiveWorkbook Sub Email_Overaged_Stock_Report() With Application...

I have macro to email sheet3 the macro works perfectly except it shows the name of the workbook followed by today date of the attached workbook I need this amended so that only sheet3followed by todays date is shown in the attached workbook Kindly amend this section of my code...

Two questions for this one. First question: I have this code that I’ve been messing with. I have it displaying my message the way that I want, but I would like two parts of it to be Hyperlinks. Sub Workbook_AfterSave(ByVal Success As Boolean) If Success Then Dim OutApp As...

We have some code that formats an outgoing email and it works great. With Sheets(1) strBody = "<I><font size = 6><FONT COLOR = RED>This order is now directed to Scheduling</font color><BR>Please evaluate Order Entry Log for Status" & "</FONT>" & "</I>" & "<p>" & vbCr & _...

Sub sendmail() Dim OutApp As Object Dim OutMail As Object Dim rng As Range Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) ReportDirectory = Range("rngReport") ReportSavePath = ReportDirectory RngEmailTo =...

Hello Everyone I have an excel userform which generates an email and populates it with information the user has inputted within the various textboxes. The code works fine until the information within a textbox exceeds a certain length. I understand there is a way to lock column sizes with...

I have the following code below which I need amended to format the value extracted from B1 for eg as $ 415,250.75 ("$#,##0.00") the value is extracted using VBA but not formatted asrequired above strBody = strBody & "Those over 60 days amount to " & Sheets(4).Range("B1") & " vbNewLine &...

Hello, good afternoon, please can you help me with the code below it is coming up as an error when i click my email button, the code is this part 'RangetoHTML' from the first line below , hope you can help me please. aEmail.HTMLBody = StrBody & RangetoHTML(rngDataToEmail) & StrThanks This is...

Hi all, I'm hoping you can help me solve a mystery. I have a button on a form that sends the sheet as an email attachment once it has been completed. The problem is that the email when received is blank and what had been filled out is no longer there. The code appears below. Any clues? Thanks...

I have created VBA code that checks to see if certain cells on a form have been filled out and then attaches the excel sheet to an email. What I need to do is send the attachment as a pdf instead. I'm at a loss for how I would change the code (see below). Any suggestions appreciated. Thanks...

I have a macro to copy a sheet and attach the same format including all the comments as the sheets The macro work to a point, except that the format for the percentages is pasted as text It is the code below that I need amended to paste the data in exactly the same format including comments...

I am trying to send files to email addresses in cell A1 of a file within a folder path. Cell A1 of every file contains an email address. I am struggling to call the text in that cell in the ".To" section of my script. In addition, the second "With" statement ends up attaching files 1 and 2...

I am trying to send files to email addresses in cell A1 of a file within a folder path. Cell A1 of every file contains an email address. I am struggling to call the text in that cell in the ".To" section of myu script. In addition, the second "With" statement ends up attaching files 1 and 2...

Hi Excel Teachers, Can you please please help me with this? I have VBA listbox which populates data for a given specific date range. But i want to send as an email this Listbox items in table format using SMTP technique. I tried but not getting the exact way. Could you please help...

I have the foliowing snippet of code to email data I need it amended to include the value of B1 on sheet "Ageing" after the text in my code "Please attend to those over 60 days" strBody = strBody & "Attached Please find Debtors Report-Please attend to those over 60 days -Please chase up on...

Hi, I have a mail macro that automatically sends email based on a cell value in Excel. So what this is supposed to do is auto mail when cell C2 is larger than 0. This is working as it should. The problem here is that the values are gathered with formulas, "=COUNTIF(Utleveranser.Data!B:B, 1)"...

Hello all I hope you can help on this please This code sends out emails from the contact list which works fine and takes the body of the email content from range G1:G53. What I am trying to do is change the font to Bold from Range G14:G23. Any ideas please [Sub Test1() Dim OutApp As...