outapp

Hello all, I have some code that would send an email for me. But after having Outlook updated or reinstalled, now it no longer works on this particular computer (though this code does work on another computer). Sub DQ_Comp() Dim OutApp As Outlook.Application, OutMail As...

Hi all it's me again, I'm using some code from Ron De Bruin's site to generate an email using the following code Sub Mail_small_Text_Outlook()'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'Working in Office 2000-2016 Dim OutApp As Object Dim OutMail As Object...

Hi everyone, Need some help with the following macro <code/>Sub Mailer(SendTo, CcTo, Subj, TxtBody) Dim OutApp As Object Dim OutMail As Object On Error Resume Next Application.DisplayAlerts = False ActiveWorkbook.Save Application.DisplayAlerts = True Set OutApp =...

Hi - I get VBA macro to copy data in worksheet to email body from rondebruin. But the code only copy the data and table without charts. Is there any way to copy all the data including charts? Sub Mail_Sheet_Outlook_Body()'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm...

I am trying to pull information from emails i have collected from an advance search. If I use the basic schema names like subject everything works but if i use the schema reference (ie, http://schemas.microsoft.com/mapi/proptag/0x10F4000B) directly it draws an error (5 : Invalid procedure call...

So I have some code that basically does an advance search and checks for the search to be complete and then prints it to the immediate window. Its basically an example modified from microsofts example for using advancesearch function. The error I am tripping is when i set my class application...

Hi, looking for some help. A macro is written in Excel VBA to send email through Outlook. I am getting an error, A program is trying to send email on your behalf. Please note that this macro will run on multiple systems where Outlook 365 is installed. In outlook 365, there are restrictions to do...

Hi All I hope that somebody can help me if this is possible. I am new at this :smile: so please bear with me. I am sending emails with the code below and it works fine. What I would like to do is save those emails to my drive for record purposes. Is this possible :confused: Thanks Preston...

Hello, Could you please help me? I would like to delete sheet where it contain all the emails which should be use in my VBA. To do it, I wrote all emails inside of VBA. Example: Sub email () Dim OutApp As Object Dim OutMail As Object To_Austria = "xxxx@gmail.com";"yyyyy@gmail.com;"...

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 =...

Good evening, I have the following VBA code which opens up from Excel, an outlook outgoing mail and attaches a specific excel attachment located in the S drive. How can I incorporate a message box (in the below code) to notify if the attachment cannot be found in the location? Many thanks...

Why can I not get data into this email ? Sub Mail_Selection_Range_Outlook_Body() Dim rng As Range Dim OutApp As Object Dim OutMail As Object Set rng = Nothing Set rng = Selection.SpecialCells(xlCellTypeVisible) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0)...

Hi all , have a small workbook created as a working time card which i want to send by e-mail. So far so good .... but would like to send it only the selected worksheet and not the whole workbook, and if possible only the print area without formulas, shortcuts and macros. With this code I get...

Hi all , have a small workbook created as a working time card which you can send by e-mail. So far so good .... but would like to send it only then selected worksheet and not the whole workbook, and if possible only the print area without formulas, shortcuts and macros. With this code I get...

hello, I currently use :- Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .to = "" .CC = "" .BCC = "" .Subject = "This is...

hi I have the 2 codes below but i want them to be added into the same module, as the count code below is in a command button and the email one is in a module how can i combine both codes into the module please? Private Sub CommandButton8_Click() Range("Z1").Value = Range("Z1").Value + 1 End Sub...

hi all, i have a following VBA but it keeps trowing a runtime 438 error object doesn't support property or method. ms outlook library 16.0 is active file saving works, just can launch Outlook and send. Any ideas? Public Sub SaveAndSendPDF() Dim OutApp, OutMail As Object Set OutApp =...

Hello. I have a VBA that is pulling files out of excel and creating emails. I have an extensive master list with potential files, which may or may not be found on a given week. My issue is, when it runs, if it cannot find one of the files, then the module stops. Is there a way that if a file...

There is a strange event in outlook such that if you send an email from a shared mailbox then the sent email shows up in the actual users sent folder and not the shared mailbox sent folder. So to get around this I want to save a copy of the sent email in the shared sent folder or a shared...

Hi, I have columns on "healthcheck" sheet that gets updated daily, with the latest update on the last blank column. I am then trying to locate the last filled column and copy paste it to a separate sheet "export" so that I can select the range and have it go out as part of an email. But for...