How to update an Outlook Task in Word 2007 VBA

macropod · #1 04-12-2013, 05:52 AM

With your 'UpdateCalendar' sub, you have some variable naming inconsistences that should be immediately apparent - especially if you set 'Option Explicity' at the top of your code module.

The other issues you'll have with running your 'UpdateCalendar' sub are: (a) you Quit Outlook before calling it; and (b) The sub has no Outlook objects of its own.

Although I'm no Outlook expert (I don't even use it, so I don't know the object model), you might try something based on:

Code:

Sub myButtonMacro3(control As IRibbonControl)
    Dim myDocName As String, mySession As String, myLeagueName As String
    Dim mySubject As String, myBody As String
    Dim objOutlook As Object, oItem As Object, olTsk As Object
    myDocName = ActiveDocument.Name
    myDocName = Left(myDocName, (InStrRev(myDocName, ".")) - 1)
    mySession = ""
    While IsNumeric(Right(myDocName, 1))
        mySession = Right(myDocName, 1) + mySession
        myDocName = Left(myDocName, Len(myDocName) - 1)
    Wend
    myLeagueName = Left(myDocName, Len(myDocName) - 4)
    mySubject = "NewsLetter For " + myLeagueName + " Session " + mySession
    myBody = "Here you go ..."
    ActiveDocument.Save
    'Start/Run Outlook.
    Set oOutlookApp = GetObject(, "Outlook.Application")
    If Err <> 0 Then
        Set oOutlookApp = CreateObject("Outlook.Application")
        bStarted = True
    End If
    'Sen Email.
    Set oItem = oOutlookApp.CreateItem(olMailItem)
    With oItem
        .To = "xxx@gmail.com"
        .Subject = mySubject
        .Body = myBody
        .Attachments.Add ActiveDocument.FullName
        .Send
    End With
    'Update Calendar.
    Set olTsk = objOutlook.TaskItem
    For Each olTsk In objOutlook
        With olTsk
            If .Name = myLeagueName & " Newsletter" Then
                .Status = olWaitingOnSomeoneElse
                .Complete = "75%"
                .Categories = "Newsletters : Sent"
                .Save
            End If
        End With
    Next olTsk
    'Quit Outlook if we started it.
    If bStarted Then oOutlookApp.Quit
    Set oItem = Nothing: Set olTsk = Nothing: Set oOutlookApp = Nothing
    Application.Quit
End Sub

As for Intellisense, your code uses late binding. If you set a reference to Outlook, you can develop your code with early binding and thus have Intellisense access. You can always revert to late binding when you're done.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Excel 2007 to Outlook 2007 - task import possible?	mjwillyone	Outlook	2	07-05-2023 07:23 AM
Auto update footer in Word 2007	worduser1970	Word	4	11-27-2012 08:02 AM
Outlook 2007 Task Bar	marstantrails	Outlook	1	05-04-2012 08:15 PM
Outlook 2007 & To-Do Task Bar	Tex	Outlook	1	05-18-2011 12:15 PM
Update from 2003 outlook to 2007 Cannot sort contacts alphabetically	mestisoz	Outlook	11	02-21-2011 02:18 PM