Hi, it's a realy stupid task I need to do:
I don't want to getthe mouse and click "follow-up this week" when i send certain emails.
So my plan was to create a macro, and assign a keyboard shortcut

I found this big old code to create follow ups tasks...
but it's not eraly what I need to do.

 
Sub CreateFollowUpTask()
'
' you can specify how many (business) days later you want the reminder
'
' don't forget to include the 'NextBusinessDay' function as well, if you copy
' this code somewhere else
'
  Dim objNS As Outlook.NameSpace
  Set objNS = Application.GetNamespace("MAPI")
  Dim objItem As Outlook.MailItem
  Dim objTask As Outlook.TaskItem
  Dim NumOfDays As Integer
  Dim DayToRemind As Date
  Const attPath As String = "C:\"
  ' set reference to email being viewed
 '
 ' if we are running this code from the Inbox, then no email would be
 ' displayed, so we'll try to check the selection first
 '
  On Error Resume Next
  Set objItem = Outlook.ActiveInspector.CurrentItem
  If objItem Is Nothing Then
    ' we are probably in the explorer window
    If (ActiveExplorer.Selection.Count = 1) And _
       (ActiveExplorer.Selection.Item(1).Class = olMail) Then
      Set objItem = ActiveExplorer.Selection.Item(1)
    End If
  End If
  On Error GoTo 0
  If objItem Is Nothing Then
    ' no email was displayed and no email was selected from the explorer window,
   ' cannot set reference to anything
    MsgBox "I was not able to create a task. Please run this code ONLY " & _
           "under one of the following conditions:" & vbCr & vbCr & _
           "-- You are viewing an email message." & vbCr & _
           "-- You are in your Inbox and have exactly one message selected.", _
           vbInformation
    GoTo ExitProc
  End If
  Set objTask = Outlook.CreateItem(olTaskItem)
  ' ask for days input
  NumOfDays = InputBox("How many business days until reminder?")
  ' get date of next business day using function below
  DayToRemind = NextBusinessDay(Format(Now, "M/D/YYYY"), NumOfDays)
  With objTask
    .StartDate = DayToRemind
    .Subject = "Reminder For Followup: " & objItem.Subject
    .Status = olTaskInProgress
    .Importance = objItem.Importance
    .DueDate = DayToRemind
    .ReminderSet = True
    ' embed original email in the task
   '
   ' first, save message copy
    objItem.SaveAs attPath & objItem.EntryID
    ' then, embed message copy
    objTask.Attachments.Add attPath & objItem.EntryID, olEmbeddeditem, , "Original Message"
    ' last, delete saved copy
    Kill (attPath & objItem.EntryID)
    .Save
  End With
ExitProc:
End Sub

Function NextBusinessDay(dteDate As Date, intAhead As Integer) As Date
Dim dteNextDate As Date
dteNextDate = DateAdd("d", intAhead, dteDate)
Select Case Weekday(dteNextDate)
' if Sunday, add 1 day to make it next business day (Monday)
   Case 1
        dteNextDate = dteNextDate + 1
' if Saturday, add 2 days to make it next business day (Monday)
   Case 7
        dteNextDate = dteNextDate + 2
End Select
NextBusinessDay = dteNextDate
End Function
Does it have to do with mailitem.flagrequest ?
I've coded in excel and acess, but this is my first dip in Outlook.

Can you help?


Ha, I just tried to press Shift-enter to post...