The Marketing Campaign object records the life cycle of a marketing effort. Data collected from a Marketing Campaign can contribute by generating new business leads, building brands, and improving customer satisfaction.
To edit a Marketing Campaign programmatically, do the following:
Select the object.
Assign new values to those properties that you want to edit.
Invoke the Save method on the object to save the changes.
The following C# and Visual Basic for Applications (VBA) examples show how to edit a Marketing Campaign object.
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim olFolders As Outlook.Folders
Dim bcmRootFolder As Outlook.Folder
Dim bcmCampaignsFldr As Outlook.Folder
Dim existMarketingCampaign As Outlook.TaskItem
Dim userProp As Outlook.UserProperty
Set olApp = CreateObject("Outlook.Application")
Set objNS = olApp.GetNamespace("MAPI")
Set olFolders = objNS.Session.Folders
Set bcmRootFolder = olFolders("Business Contact Manager")
Set bcmCampaignsFldr = bcmRootFolder.Folders("Marketing Campaigns")
Set existMarketingCampaign = bcmCampaignsFldr.Items.Find("[Subject] = 'Sales Project with Wide World Importers'")
If Not TypeName(existMarketingCampaign) = "Nothing" Then
If (existMarketingCampaign.UserProperties("Budgeted Cost") Is Nothing) Then
Set userProp = existMarketingCampaign.UserProperties.Add("Budgeted Cost", olCurrency, False, False)
userProp.Value = 55555
Else
existMarketingCampaign.UserProperties("Budgeted Cost").Value = 55555
End If
existMarketingCampaign.Save
Else
MsgBox ("Marketing Campaign not found")
End If
Set existMarketingCampaign = Nothing
Set bcmCampaignsFldr = Nothing
Set bcmRootFolder = Nothing
Set olFolders = Nothing
Set objNS = Nothing
Set olApp = Nothing