Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Outlook Macros

Status
Not open for further replies.

abe2615

Instructor
Jul 28, 2001
1
US
I need to automate a process in Outlook. I want to offer various marketing plans. As a person selects a plan they would download the macro in Outlook. They would then run the macro while outlook is open.The macro would create task on a specific date of the month (determined by the macro) for 12 months. The Task would have a reminder one day before the task was due. 15 days after that task was due another task would remind the user to follow up on the previous task.
Text would be in the tasks as to what the user was supposed to do. Once one macro is created the others can be modified for the other task, dates and wording.

I need help in creating the template of that macro.

Alan
 
Unfortunately, Outlook 2000 does not support Macros. Additionally, while it does support VBA, it only can support one "project" at a time. You can customize Outlook using "COM" add-ins, but that's pretty advanced stuff....

An alternative ,hich I use, is automating Outlook from another application, such as Access. I would store your tasks in an acces table. Then use the create item method of the folders object. Here's a little snippet that imports stuff from an excel spreadsheet...

Code:
'There's stuff above this...
Set myItem = Application.CreateItem(olContactItem)
        With myItem
          'Populate fields
          .FullName = objExcel.ActiveCell.Offset(0, 0)
          .OfficeLocation = objExcel.ActiveCell.Offset(0, 1)
          .Department = objExcel.ActiveCell.Offset(0, 2)
          .Email1Address = objExcel.ActiveCell.Offset(0, 3)
          .FirstName = objExcel.ActiveCell.Offset(0, 4)
          .LastName = objExcel.ActiveCell.Offset(0, 5)
          .Title = objExcel.ActiveCell.Offset(0, 6)
        End With
'There's stuff below this...
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top