Smart Tags

[edortiz]

I need to create a smart tag that allows me to create "outlook tasks" from my Access Database.

[Tanis]

Open the form in design view. In the text boxes property select the Data tab. Never used them myself. More on smart tags here.

http://office.microsoft.com/en-gb/marketplace/EY010504821033.aspx

[MMcCarthy]

Here is some code for the various outlook procedures. You could break them into functions in a module. Then use them as required.

 
' Start Outlook. . . If it is already running, you'll use the same instance... 
Dim olApp As Outlook.Application 
Set olApp = CreateObject("Outlook.Application") 

' Logon.  Doesn't hurt if you are already running and logged on... 
Dim olNs As Outlook.NameSpace 
Set olNs = olApp.GetNamespace("MAPI") 
olNs.Logon 

' Create and Open a new contact. 
Dim olItem As Outlook.ContactItem 
Set olItem = olApp.CreateItem(olContactItem) 

' Setup Contact information... 
With olItem 
	.FullName = "James Smith" 
	.Birthday = "9/15/1975" 
	.CompanyName = "Microsoft" 
	.HomeTelephoneNumber = "704-555-8888" 
	.Email1Address = "someone@microsoft.com" 
	.JobTitle = "Developer" 
	.HomeAddress = "111 Main St." & vbCr & "Charlotte, NC 28226" 
End With 

' Save Contact... 
olItem.Save 

' Create a new appointment. 
Dim olAppt As Outlook.AppointmentItem 
Set olAppt = olApp.CreateItem(olAppointmentItem) 

' Set start time for 2-minutes from now... 
olAppt.Start = Now() + (2# / 24# / 60#) 

' Setup other appointment information... 
With olAppt 
	.Duration = 60 
	.Subject = "Meeting to discuss plans..." 
	.Body = "Meeting with " & olItem.FullName & " to discuss plans." 
	.Location = "Home Office" 
	.ReminderMinutesBeforeStart = 1 
	.ReminderSet = True 
End With 

' Save Appointment... 
olAppt.Save 

' Send a message to your new contact. 
Dim olMail As Outlook.MailItem 
Set olMail = olApp.CreateItem(olMailItem) 

' Fill out & send message... 
olMail.To = olItem.Email1Address 
olMail.Subject = "About our meeting..." 
olMail.Body = _ 
	"Dear " & olItem.FirstName & ", " & vbCr & vbCr & vbTab & _ 
	"I'll see you in 2 minutes for our meeting!" & vbCr & vbCr & _ 
	"Btw: I've added you to my contact list." 
olMail.Send 

' Clean up... 
MsgBox "All done...", vbMsgBoxSetForeground 
olNS.Logoff 
Set olNs = Nothing 
Set olMail = Nothing 
Set olAppt = Nothing 
Set olItem = Nothing 
Set olApp = Nothing