Synergist

Silly question, but I'm new to macros.  How do I get from the script attachment to the quick launch bar?  Do I need to copy and paste the script to a txt file and drag that to the bar?  Or something else?  Thanks for any help you can offer.

Hello,

I'm new to macros, and I would lik te know if it is possible te rewrite teh script so that i can make a task of certan e-mails.

Micha

I'm tryng to modify your script to attach an "email" to the appointment, but with out success

Can you help me?

Thanks

Now that i've moved from outlook 2003 to 2007, my Getting Things Done add-in no longer works. Does anyone know how to create an Outlook task based on an email, which is one of the main things I relied on the add-in for?

I get an error when this macro runs.

  Run time error '91'

  Object bariable or with block variable not set

the debuger stops at:

  Set item = app.ActiveInspector.CurrentItem

Not to make this over-simplified, but you can do the same thing by selected a message or several messages, and dragging them onto the "Calendar" item. This works in pretty much every version of Outlook including 2007.

It won't make the e-mails as attachments, but it does copy the contents into the meeting notice.

I think I figured the earlier one out (just shows how much I have been waiting for something like this!). Accomplished it by changing the security settings (Tools->Macro->Secuirty->Programmatic Access).

However, I have another problem.

Since I have numerous filters set up, I normally have my Unread Mail window always open (in fact that is my default, not Inbox). I added your macro to the toolbar here, and tried to invoke it once I saw the message I want displayed in the reading pane. I did not click the message to open in a separate window. I get this error message:

Run-time error '91'; Object variable or With block variable not set. However, if I have the message open in a separate window, I can invoke the Macro either from the Unread Mail window, or from this separate window without any issues.

Is there any fix for this?

thanks!

rgds,

bala

Any way to change this macro so it can run as a rule in Outlook 2K7 and have it use the emails .sendon as the start and end time so a reminder is triggered?

Gary,

Thanks for that little piece. It worked exactly as I wanted to! I have it in my Unread Mail and Quick Launch bar, so works everywhere.

rgds,

bala

Hi,

Thanks for this useful technique. One question:

How do I associate an email with an existing task? I would have expected to be able to drag and drop an email onto a task, but that doesn't work. Ideally, one should be able to select an email, click a button or a context-menu item, and select a task to associate the email to, in effect, attaching the email to the existing task.

First, thanks, this gets me most of the way to where i need to go.

I've been playing with this macro to try to see if I can get it to read the simple body to pull out names, dates and a subject to be used in the appointment but I'm not sure if the methods I'm using are correct.

I've been trying to use the .IndexOf and Substring functions to cut up the string and define variables but I seem to have a mismatch with my variables.

Here's the mess I've made, any help?

Dim X As Integer

Dim Y As Integer

Dim name, reason, bodystring As String

bodystring = meetingRequest.Body

X = bodystring.IndexOf("#")

X = X + 2

Y = bodystring.IndexOf("$")

Y = Y - 2

name = bodystring.Substring(X, Y)

X = ""

X = Y + 4

Y = bodystring.IndexOf("!") - 2

meetingRequest.Start = bodystring.Substring(X, Y)

X = ""

X = Y + 4

Y = bodystring.IndexOf("?") - 2

meetingRequest.End = bodystring.Substring(X, Y)

X = ""

X = Y + 4

Y = bodystring.IndexOf("~") - 2

reason = bodystring.Substring(X, Y)

With meetingRequest

       .Subject = "" & name & " - " & reason & ""

       .ReminderSet = False

       .AllDayEvent = True

EndWith

The #, $, !, ? and ~ are just to help me mark and divide up the string.

Been a while since I've tried to do this kind of stuff and I'm not sure if IndexOf and Substring even work with Outlook 2003.

Anyone have any ideas?

Michael, I don't know how to "do" macros. but if you answer me I'll find someone who can help me. What I'm trying to do is to have outlook automatically make an appointment if i get a spacific email (these emails can be defined by words in their subject).The date can be found in the body of the email always following a unique name or it can be in the subject. The name of the appointment can be found the same way. the time can be "all day". and the catagory is given to the email through a simple rule I made when i get the email. ok that's about it. can you help? is this possible?

Thank you,

Katie

This is a bit crude, but it works for a specific layout of email that I get that has the appt, time and location in, I wanted to add the location to the subject line as well.

Hope it helps

   If LCase(sender.Address) = LCase("mysupplier@theirdomain.com") Then

'      Create meetingRequest

     Dim X As Integer

     Dim Y As Integer

     Dim startDay, startTime, endTime, postcode, bodystring As String

     bodystring = meetingRequest.Body

' get meeting start day and time (line 7) preceded by "Appt Date:"

     X = InStr(bodystring, "Appt Date:")

     X = X + 11

      startDay = Mid(bodystring, X, 10)

     X = X + 14

      startTime = Mid(bodystring, X, 5)

' set meeting end time (add 1 hour to the start time and watch out for 09h/19h)

     Y = Mid(startTime, 2, 1)

     If Y < 9 Then

           Y = Y + 1

           endTime = Mid(startTime, 1, 1) & Y & Mid(startTime, 3)

        Else

           Y = Mid(startTime, 1, 2)

           Y = Y + 1

           endTime = Y & Mid(startTime, 3)

     End If

' get postcode use last bit of 12th line next line is a divider, followed by "Employed:"

' it can vay from 3 characters to 9 characters, and is always preceded by ", "

     X = InStr(bodystring, "Employed:")

     X = X - 75

       postcode = Mid(bodystring, X, 9)

       Y = InStr(postcode, ",")

       If Y > 0 Then

         postcode = Mid(postcode, Y + 1)

       End If

      postcode = UCase(Trim(postcode))

      meetingRequest.Start = startDay & " " & startTime

      meetingRequest.End = startDay & " " & endTime

      meetingRequest.Subject = postcode & " - " & meetingRequest.Subject

      meetingRequest.ReminderSet = False

      meetingRequest.Categories = "Advent"

   End If

I have been saving a lot of emails into a folder on AOL.  I was wondering if there was a way to write a macro (or script in aol) that would open the email and paste it to the bottom of a word document.  Any help you can provide?

Thanks

N Bill Sheff

Oops -- just saw your response to a similar comment above.  That'll teach me. =)

Pffft, I can't get it to work, really. Not even a basic calander appointment.

I just want a mail to be copied into a new calander appointment, not even to have all the dates and stuff set, but just simply that the subject is already prefiled and that it has the original e-mail....

Copied the scripts above, they didn't work for me. Tried fixing the code but it doesn't ever work :S

Using Outlook 2007

Last year I created a simple macro for Microsoft Outlook 2007 that automatically created an appointment

I made a couple of changes to the macro:

1) Add the current eMail as an attachment to the appointment rather than copying the body text.

   ' Change this to add the eMail as an attachment to the appointment

   'meetingRequest.Body = email.Body

   meetingRequest.Body = "As referenced in the attached:" & vbCrLf

   meetingRequest.Attachments.Add email, olEmbeddeditem, 1, email.subject

2) Allow for the selected eMail to be one that is in the "Sent Items" folder.

   ' If the selected eMail is in "Sent Items" then the

   ' email.SenderEmailAddress is an empty string

   ' So do not attempt to add it to the meetingRequest as it will fail

   If LCase(email.SenderEmailAddress) <> "" Then

    Set recipient = meetingRequest.Recipients.Add(email.SenderEmailAddress)

    recipient.Resolve

   End If

Did anyone ever modify this to let you chose a calendar to save the appointment to a different calendar?  

I wanted this code so much....

I just wanted some basic meeting creating example from VB. For someone just interested in seeing some peoples scheduling availability here is a macro:

Public Sub hbk()

   Dim George As String

   Dim Dick As String

   George = "George W. Bush"

   Dick Cheney = "Dick Cheney"

   Set meeting = Application.CreateItem(olMeeting)

   meeting.Display

   meeting.Recipients.Add (George)

   meeting.Recipients.Add (Dick)

   Set objInsp = meeting.GetInspector

   objInsp.SetCurrentFormPage "Scheduling"

End Sub

This is all great and new to me. I need some help creating a macro based on an email received.

On the body of the email, I have the option to accept or decline a project request/order. I would like to create a macro that will allow my outlook to accept each order as it arrives by

1. automatically selecting accept

2. log in to the system using the required username and password

3. complete the acceptance process in the project system

HELP!!!!!!