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/ma...504821033.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 = "[e-mail]" 
    .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