My range("C4") has the time "10:00 AM". The field has been formated to DATE format. With my code to create an Outlook appointment, I can get all of my required fields to populate from the spreadsheet except for the time. I would like to populate the time for the appointment with the data in C4.
View 1 RepliesI am probably overengineering my macro, but I would like to setup an outlook appointment in two peoples calendars from my userform. The macro has access to the email addresses of the selected persons, I just want to send date/time and subject.
View 2 Replies View RelatedI've used some code from another thread on the forum to create an Outlook Appointment and email this as an attached .ics file from an Excel spreadsheet. Everything seems to work fine. The email is sent and the attachment when double clicked opens in Outlook with all the correct information, but when the recipient clicks 'Save and Close' it doesn't save in their calaendar....
View 9 Replies View RelatedIt is for a calibration spreadsheet that I run that keeps track of when items are due to be calibrated.
It works at the moment and has populated my outlook with calendar entry and reminder 2 weeks before they are due - which is perfect.
The problem is when I update one of the calibration dates I will want to re-run the macro to create a new appointment - but this will duplicate all the appointments that already exist! very annoying since there are over 200 items.
Sub outlook_appointment()
Dim olApp As Outlook.Application
Dim olAppItem As Outlook.AppointmentItem
[Code]...
How to add an appointment to a shared outlook calendar from Excel. I will be entering shipments in an Excel page and would love to just click a button and have an appointment made. I am very much a novice on how programs communicate with one another. The only information that will need to go on the appointment is the subject, location, and time. We set all our appointments at 15 minutes duration. The code I have so far is this:
[Code] ....
The problem is it only adds it to my default calendar. I need to be able to add it directly to the shared calendar in Outlook.
i was just wondering if anybody know of any good resourses for excel to outlook macros, specifically for copying contact and appointment details from excel to outlook. I've had a good search on the net, but it just yields lots of code, im looking more for learing resources etc.
View 3 Replies View RelatedI have some VBA code that in one portion of it an Outlook e-mail is created and the active workbook is attached and sent. This code used to work on Excel & Outlook 2003, but now in Excel & Outlook 2007 I'm getting the error:
Run-time error '429':
ActiveX component can't create object
and is stopping on the line
Set OutApp = GetObject(, "Outlook.Application")
FY If I comment out the Set OutApp... and If OutApp.... lines and uncomment the Set OutApp create object line, I still get the same error.
Dim OutApp As Object
Dim OutMail As Object
Dim SigString As String
Dim Signature As String
'Set OutApp = CreateObject("Outlook.Application")
Set OutApp = GetObject(, "Outlook.Application")
If OutApp Is Nothing Then Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
I have had some help with this (thanks!) but am stuck.
Can someone add to the code below and make it so that multiple tasks, with multiple assignees, can be created from a range of cells, such as:
Column A Column B
Row 1Task SubjectAssign to
Row 2GV LP for AZJohn Brown
Row 3GV LP for COJohn Brown
Row 4GV LP for ILSuzy Smith
Row 5GV LP for INSuzy Smith
Row 6GV LP for KYSuzy Smith
Row 7GV LP for MNSuzy Smith
Row 8GV LP for MSBob Barker
Row 9GV LP for NCBob Barker
Row 10GV LP for NJBob Barker
Row 11GV LP for NMBob Barker
Row 12GV LP for NVBob Barker
Row 13GV LP for NYBob Barker
Row 14GV LP for OHBob Barker
Row 15GV LP for SCBob Barker
Row 16GV LP for WVBob Barker
(Sorry, it didn't translate well. The "GV LP for AZ" is cell A2, "John Brown" is cell B2.)
Here is the code I have so far:
I have successfully adapted some code to create e-mails in outlook, insert text, add an attachment and specific who to send - all from within excel.
However, all of the recipients are contacts in our internal address book and what I would like to do is use the "shortened" version of their contact to send the e-mail.
e.g. Simon Jones e-mail address might be simon.jones@mycompany.co.uk - but if I simply type in Simon Jones; and then tab to the next line, outlook works out who this is all on it's own.
The problem is, if I specify in my code to send to Simon Jones; it does not convert it / work out who it is.
Is there a way of doing it via VBA?
Can a macro from Excel VBA create a Task in Outlook?
I would like to have Excel create a task populated with a date in a given cell in Excel.
Basically, click a button and a task is creaed in Outlook based on the date in a given cell.
Is this possible?
I'm looking for a way to prompt outlook to create a new email and in the body copy the contents of Sheet1, but instead of sending, I want it to just hold it so that the user can review the email contents.
Similar to this, but instead of an attachment the email body contains the data from sheet1
[Code] .....
VBA code which will create a pdf file from excel (for a specific range in a worksheet) and then send it to a destinator via my outlook mail?
View 5 Replies View RelatedI'm generating a letter (Word doc) and populating bookmarks with data on a worksheet using the following code which is assigned to a Button and it works a dream (in terms of opening the Doc and populating the bookmarks with whatever data is in the relevant cells on the worksheet):
Sub test()
Dim objWord As Object
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open "location of the letter.doc"
[code]......
However, what I now need to do is Create an Outlook Item (email) with a Standard Subject and send to an email address that will be on the same worksheet (in cell M2 for instance) and with a standard Body.
I dont really need to open the Word doc, like it does at present, but I do need the Bookmarks contained within it to be populated with the source data contained within the Worksheet and subsequently have it attached to the email fully populated - maybe I need to 'close' / 'save as & close' the Doc post generation?
I want to email with excel, and I know how to do it if I have a distribution list already set up in outlook. I want to avoid having this DL in outlook though, and instead keep a list in the actual excel workbook. I tried having the list and then combining all the cells with a semicolon inbetween the addresses into one single cell, then assigning that cell to a variable and inserting it in the cose in place of the DL name, but it doesn't work. Apparently you can't mail to mutliple address thru the VB code, either a single address or a DL. Am I incorrect in this? So I thought maybe I could somehow create the DL first using the names in the list thru code, and then using that DL name to send the workbook.
View 9 Replies View RelatedI have two question for Excel in combination with microsoft outlook:
1. I was wondering if it is possible to create an email from Excel which automatically adds the From-field with a pre-defined emailadres. I am using CreateObject("Outlook.Application"), but I can not add the From-field.
2. I also would like to know if it is possible to do automatically fill the To-field with the emailadress from the user who send me the original file. Maybe this needs some more explanation (sorry my english isnt too good):
* A user can download an excel-form from the internet
* The form is sent to my emailadress
* I give a number to the form
* The user will get a message that his question is attend to with the number of the question
So I use a macro-button to reply when I have filled in the question-number.
Currently I have been tasked with trying to develop a link between an excel spreadsheet and outlook. What they want is for a button to pickup new entries into the sheet and then create outlook events based on several criteria. The first been that is put on several shared calendars, second that the category of the event is call "BID" and gold in color. The last part is where specific information from the spreadsheet fits into the event areas (ie. subject, location, start time, body). I did find code that is a possible solution but manipulating it to what i need. Here is the code.
Code:
Option Explicit
Sub AddToOutlook()
Dim OL As Outlook.Application
[Code]....
As you can see for the most part I have been able to fill in most of the program with what i needed. I have column B on the sheet that has r's on it. If there is an r in that column then the macro creates information from that row, else it skips to the next one. so i need a loop. Also like stated above, how do you make it an event and not a meeting, how do you set the category and lastly for the boy how do i set it so it copies the entire row (column A, Column C to Column L)?
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 am trying to create a time stamp that shows elapsed time. So I enter my start time, and if I enter any text in cell B7, return the elapsed time in A7 based off of start time in A6. I have attached an example workbook.
View 2 Replies View RelatedI need to copy a range in excel (from an open workbook) into a new email in outlook via VBA and I want to paste it as a Bitmap. Is this possible?
I know how to attach a workbook to a new email but I can't figure out how to do just a range (A1:G20).
I am using a code copied from Ozgrid to email a worksheet but the code doesn't seem to work?
Sub Mail_Sheet_Outlook_Body()
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
With Application
.EnableEvents = False
. ScreenUpdating = False
End With
Set rng = Nothing
Set rng = ActiveWorkbook.ActiveSheet.PrintRange 'UsedRange
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon .......................
I have a range in an Excel worksheet named 'Request'. I want to paste this range into the body of an email and send to sepcified recipient via outlook. I tried the following code, but this does not seem to work. Am I not referencing to Outlook correctly?
Private Sub cmd_Send_Request_Click()
Dim objol As New Outlook.Application
Dim objmail As MailItem
Dim varBody As String
Dim objdata As DataObject
Set objol = New Outlook.Application
Set objmail = objol.CreateItem(olMailItem)
Set objdata = New DataObject
Application.Goto Reference:="Request"
Selection.Copy
objdata.GetFromClipboard
varBody = objdata.GetText
With objmail
.To = "kully.rai@ca.com"
.Subject = "Benchmarking Request"
.body = varBody & vbCrLf & vbCrLf
.NoAging = True
.Display
End With
Set objmail = Nothing
Set objol = Nothing
End Sub
I've seen a few posts recently asking about sending either sending a range or a worksheet in an Outlook email as the body of the message through code. I've been looking at this and think I've come up with something that might work. I'd appreciate it if any of you XL kings and queens would take a look and see if the code works OK on your machine. I've sent a few messages to myself (sad I know ) and they seem to work well.
Here's the code. You need to set a reference to the Outlook object Library AND the Microsoft Scripting Runtime in order for this code to work.
Option Explicit
Sub SendRange()
'Sends a specified range in an Outlook message and retains Excel formatting
'Code written by Daniel Klann 2002
'References needed :
'Microsoft Outlook Object Library
'Microsoft Scripting Runtime...........
How I can email a data range from a worksheet and copy paste into a blank email as a picture (Windows metafile).
View 2 Replies View RelatedI am attempting to create a user friendly spreadsheet and i am getting no where. i want to have someone populating a spreadsheet with data with a conclusion and final. at the end of the range if the outcome is below a set percentage they will click the hyperlink which will open outlook to a preset distribution list depending on the percentage. i have all this done but what i need is that when the email opens it copies the range of cells into the email so that all they have to do is click send. this seems simple enough to say but it appears that Ms has decided this is not possible.
View 1 Replies View RelatedI have the following:
[C1] My dynamic email subject
[C5:C10] My dynamic email body message
My recipient is always same "burak@burak.com"
Now, I need a VBA code, that will automatically open a blank new outlook email window fill the fixed recepient fill the dynamic subject and body of the message from a range in my workbook.
Then just stop there so that I can attach some different files each time and send myself.
I am writing a code wherein I want to assign specific excel range to a declared variable and then paste this excel in outlook message ody but I am finding difficulty in assigning that range to variable " brng"
I think code is right and issue is there in excel setting.
Code:
Sub mailer()
'
'
'
Dim Ash As Worksheet
Dim brng As Range
Dim OutApp As Object
Dim OutMail As Object
'Windows("Copy of FF RPL REPORT_JULY").Activate
[Code] .......
Am working in Excel 07, but this would need to work in 2000 as well.
Need a macro that will...
1. Select a range of cells from B4 to RX. X is defined as the last row where Column A has a value.
2. Copy the visible cells
3. Open an email in Outlook (not via the email workbook function of excel), enter "Submission" into the title, enter "Dear X," insert 2 returns.
4. Paste the copied table (not the workbook, just what is on the clipboard) into the body the email.
Refer to the attachment. I am trying to average the data in the Y column, if the times fall into the range between column R and S. I am having trouble with the averageif function. Is there a better way to parse through column W, check if the values fall between the ranges of S and R, and if they do, average the associated values in column Y?
Attached image: Capture.JPG
What I need is a formular/vba code that can divide hours into different time ranges. The picture below shows an explanation.
In example 3 there time range analyzed goes from saturday till monday. Here Sunday should get 24 hours and the time range 23-08 for weekdays is at this point 00-08.
I've tried everything I could imagine to get this one working,
I found this formula similar to other formula
NETWORKDAYS(D1,F1)-1)*"18:00"-"9:00")+IF(NETWORKDAYS(F1,F1),MEDIAN(G1,"9:00","18:00"),"18:00")-MEDIAN(NETWORKDAYS(D1,D1)*E1,"9:00","18:00")
By the way ....D1 = start Date
F1 = End Date
E1 = start Time
G1 = End Time
It's GREAT! But now I need include time from 6:00 a. m. to 10:00 p. m. (I already modified your formula:
(NETWORKDAYS(D1,F1)-1)*("22:00"-"6:00")+IF(NETWORKDAYS(F1,F1),MEDIAN(G1,"6:00","22:00"),"22:00")-MEDIAN(NETWORKDAYS(D1,D1)*E1,"6:00","22:00")) because are regular working hours in Colombia but:
1. All the days (Monday to Saturday) are working days
2. I just want to calculate the time in shifts, I don't specify the start date and end date. Example: 8:00 p.m. to 11:00 p.m. Result: 2 hours, because 1 hour is after 10:00 p.m.
This are two different options, so I need two separate formulas.