Please check this sample file. Say for example; I am sending this file via mail to different agencies. See in this file sheet named base & column title Agency , filters concerned agency wise and send via outlook to the concerned agencies mail id from mailinfo sheet. What my concern is since these are different agencies, I wanted to bring the agency name in the mail subject.
Link below:- [URL] ............
I would like to search an outlook folder for a variable in the subject line and return the date when that email was received. Here is the code i have so far...
Code:
Sub Get_pos()
Set olApp = CreateObject("Outlook.Application")
Dim olNs As Outlook.Namespace
Dim Fldr As Outlook.MAPIFolder
Dim olMail As Variant
Set olApp = New Outlook.Application
[Code] ........
The macro im using copys a table from excel into a email. Unfortunatly the email is not readable for blackberry users due to the table properties.
I need to change a few properies. This is what i do manually.....
In outlook i then hover over the table right click then select "Distribute rows evenly" then i right click again but this time i select "Table properties" i then go to the "Row" Tab
i then untick the "allow row to break across pages"
then tick "specify height" and change the value to 0.4 cm and finally change "row height is" to "exactly"
Below is the whole code im using so far....
Code:
Sub Mail_Selection_Range_Outlook_Body()
Dim rng As Range
Dim OutApp As Object
[Code]...
I have this code as seen below that sends an email.
I would like to change the font size of - mymail.body=
How can I modify this existing code to achieve that.
Code:
Set myOlApp = CreateObject("Outlook.Application")
Set mymail = myOlApp.CreateItem(olMailItem)
mymail.Subject = strSubject
mymail.Body = "WHAT DO YOU PUT INTO A BOX ?"
mymail.Display
mymail.ReadReceiptRequested = False
mymail.attachments.Add "P:SR.xls"
mymail.to = "email@email.com"
mymail.Send
I need of some way to capture a screen shot of a program on screen and send it to a specified email address at a certain time of the day. I would not think its impossible, could it be done using vba code?
View 10 Replies View RelatedI am using Microsoft outlook to get my all official emails. I have lot many emails in outlook express & there are some common things which i want to get in an excel sheet. Details of data are as under.
Column A Column B
1) Company Name Xyz Ltd.
2) Sales 1500$
3) Commission 150$
4) Total Sales 2500$
how can i get particular these data from outlook express to excel sheet ?
i was able to setup a email code, which will automatically extract the unique row reference data and sends the email. However, i am struggling to add couple of things, i searched most of the web portals .. wasn't lucky.
1. while email drafting i need to use the data from Column B onwards
2. i need to insert the default email signature during email draft ...
I need to send a mail on a daily basis from outlook at 6.00 pm.
Containing a shared link to particular mail I'd.
I have the following code from Ron De Bruin's website (http://www.rondebruin.nl/mail/folder3/message.htm) for emailing a small message from a range.
View 14 Replies View RelatedGetting attachments from outlook subfolders.
My attachments are in Inbox > First subfolder (sales) > second subfolder(Sales 1)
I need to save attachments from second subfolder (Sales 1) to my drive.
Currently i got macro which picks up attachments from first subfolder (Sales). The macro code is
Sub SaveAttachmentsToFolder()
On Error GoTo SaveAttachmentsToFolder_err
Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim SubFolder As MAPIFolder
[Code] ...........
when sending an email in code from Excel through Outlook, the following Microsoft Office Outlook dialog appears during code execution in Office releases since 2002:
A Program is trying to automatically send e-mail on your behalf.
Do you want to allow this?
If this is unexpected, it may be a virus and you should choose "No".
Two buttons: [Yes] [No]
Question
Has anyone used or developed code that bypasses this prompt, and if so, would you please post an example of your code here. What I would like is a macro in VBA and / or API that you know from your own first-hand experience has worked for you, that emails an Excel attachment from Excel, using Outlook (not Outlook Express) as the email client, which bypasses the above prompt.....................
I want to search for a specific text in body of an outlook mail attachment,I am able to search for the string in the body of the mail,I also get mails with mail as an attachment i want to search for the string in the attachment as well.
View 6 Replies View RelatedMy company recently upgraded everyone to Microsoft 2010 from 2007 version. I have no substantial VBA skill and left with a VBA code which is supposed to extract a list of outlook emails sitting in a shared mailbox into Excel.
I was using that VBA code in Outlook 2007 and it worked fine but shows the following error when run in Outlook 2010: 'Run-time error '-2147221233 (8004010f)': The attempted operation failed. An object could not be found. Here is part of the code:
[Code] .....
It worked after one of the members suggested to "click on any line of this code and press F8 repeatedly until the yellow focus moves to the error line, don't press F8 anymore. Now in immediate window, copy paste each of below lines, press enter after each line. Let us know where the error occur." However, it stop working the next day.
? olNS.Folders("Mailbox - Market Intelligence").Folders.Count
? olNS.Folders("Mailbox - Market Intelligence").Folders("Inbox").Items.Count
? olNS.Folders("Mailbox - Market Intelligence").Folders("Inbox").Folders("MI").Items.Count
the code always opens a new instance of Outlook even though one may already be open. If left unchecked I may have like 30 instances open if I leave the computer for a few hours. So I was wondering is there some snippet of code I can add in here to check if excel is open first and if so do not open a new instance?
Code:
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
' Change the mail address and subject in the macro before you run it.
With OutMail
.To = "xxxx@live.com"
[code].....
I have problem to change text code into numerical code using macro. i have data contain text code and i would like to convert it into numeric . each text code has dedicated numerical code for example I have 4 fluids with text code text code:
FW = Fresh water
SW = Saline eater
CW = connate water
MW = Meteoric water
numeric code as follow
FW=1
SW=2
CW=3
MW=4
I would like to convert the text code into numeric code, it is easy if using excell , but it is routine job for me , i need to create macro to be more simple .
I have recorded the code below that does what I need, problem is I will use the code on files with various amounts of rows. What can I change in it so it will work on all different size files.
Code:
Sub Macro3()
'
' Macro3 Macro
[Code]....
I want to find the first topper student in each subject but the formula is not giving correct output.
View 14 Replies View RelatedIn cell G2 I have a formula that adds the values in column C that are labelled in column B as either 'Apple' or 'Grape'. This is accomplished in the formula using {'Apple', Grape"}. Is it possible to change the formula so that the {'Apple', Grape"} can be replaced with a reference to a range in which the names to be used in the formula will be listed (for example in J1:J3 in the attached file)?
Book6.xlsx‎
I have a column of names. Most of these data show multiple times. Another column has values. I'd like to find the maximum value for each name.
This solution might correspond to "=MAX" the way that "=SUMIF" corresponds to "=SUM".
Note: the table has over sixteen thousand rows; some solutions may work technically but not be practical.
How can I create a macro for excel to delete rows that have the SAME subject? (delete all duplicates - the price etc on that row may differ but as long as the subject is the same, I was to delete it off)
View 4 Replies View RelatedI am using the following code to automatically send an attachment to a specific email with a specific subject line.
ActiveWorkbook.SendMail Recipients:="johndoe@yahoo.com", Subject:="General subject"
ActiveWorkbook.Close SaveChanges:=False
Is there a way to reference a specific field in the active workbook as the subject line?
I've been asked to write a multiple if statement for someone here at work but I've been trying all day with no success. Basically, the OS liabilty in column C cannot exceed £2500. Here is an example inc the expected results............
So in row 1 the expected result is 500, as even though there is a 1000 reserve, 2000 of it has already been paid In row 2 nothing has been paid in column A so the OS liabilty in column C is the reserve up to a max of 2500 In row 3, there is 5000 in reserve, but 100 has been paid so the OS liability in col C must be 2000
In row 4 nothing has been paid in column A so the OS liability is the reserve in column B In row 5 150 has been paid, 150 is in reserve, so 150 is the OS liability
In row 6, 2500 has been paid, but even though there is an amount of 300 in reserve (col B), nothing is expected in OS liability as the 2500 max liability amount has been reached.
I have a spreadsheet where in the past we have used a turnover period (always 12 yrs) as our constant to calculate our average factors. For example we use formulas to calculate up to 12 years and the we just restart at year 13- providing that one of the formulas does not return a 0 value. I need to be able to choose our turnover period- say 8 years and have the values start then but in the next prokect I may need a 10 year turnover.
View 3 Replies View RelatedI would like to select File/Send to/Main Recipient (As Attachment) within my Excel Spreadsheet. Within the email, I would like the subject line to be automatically filled in with an entered value of a cell block from within the spreadsheet.
For Example, If cell block A1 had Thursday entered in the cell. Then once I chose send to/Mail Recipient, The subject line would read Thursday.
A1: John Black B1: Jane Black C1: John Black D1: John Black
A2: 24 B2: 32 C2: 23 D2: 12
If I choose "John Black", I would like a list generated that lists 24, 23, and 12 in row 3, in separate columns, but no empty columns between the numbers.
I currently have the below in my VBA which adds the text to the subject of an email:
Application.Text(today - 1, "MM-DD-YY")
today = Int(Now()) is part of the macro. How do i format this to display workdays only.
For instance if today is 07/21 (monday) i need this to display 07/18 vs 07/20.
In excel that function would be =WORKDAY(A1,-1) where A1 is =Today(), just not sure how to translate this to VBA.
I have a simple sheet with a list of costs (small version attacheds as there are 430 items on full list) when i enter "Y" in the move to invoice column I would like the description, multiple and cost details copied to invoice sheet. The added complication for me is that if for example when there is a requirement for multiples of that cost to be added to the invoice.
View 9 Replies View Related cannot seem to get a function that works.
I have a sheet named "Master" with student reference numbers (A2), student names (B2/C2) and their four subjects (D2, E2, F2, G2).
I need a separate sheet for each subject, so potentially 30 additional sheets, and i would like for where a subject is mentioned in one of the four columns of the master, the students reference and names would then be copied and pasted into a row on that subject specific sheet. Leaving the subject sheets with a list of names and numbers of the students studying.
So you would have a student on the master sheet and then they would appear on four additional subject sheets.
Ideally it would also update subject sheets as new students are added. And additional information is being added to the subjects sheets so they cannot be cleared.
I would like to create a list covering multiple columns.
I would like to have 5 columns which will contain the same value/ (word).
If I select,that value from the list, I would like to have each row the word is
found be displayed regardless of which row it is found.
I am trying to send out an e-mail from excel with all kinds of combined info. Here is what I have so far, which works to send out an e-mail to a certain address with a compiled subject. No luck with inserting the BODY of the e-mail yet from a certain cell.
=HYPERLINK(CONCATENATE("mailto:",E32,"?subject=",F32))
Also, How do I make the text in each of these cells read "send e-mail" rather than the whole jumbled mess that is currently in there from the combination of the cells?