static void Main()
{
System.Windows.Forms.Application.Run(new Form1());
}
private void button1_Click(object sender, System.EventArgs e)
{
Outlook.ContactItem ci;
Outlook.Application outlook = new Outlook.ApplicationClass();
ci = outlook.CreateItem(Outlook.OlItemType.olContactItem) as Outlook.ContactItem;
ci.NickName = "NickName";
ci.FullName = "FullName" + System.DateTime.Now.ToLongTimeString();;
ci.JobTitle = "JobTitle";
ci.CompanyName = "CAM Informática";
ci.Save();
}
http://msdn.microsoft.com/office/understanding/outlook/codesamples/default
.aspx?pull=/library/en-us/dno2k3ta/html/odc_ac_olauto.asp
Create a Contact Item in Outlook
This section shows you how to use automation from an Access form to start Outlook and to display a new contact screen for input. You can change just one line of code to make this example apply to a new Outlook appointment,
journal entry, mail message, note, post, or task.
The following sample shows you how to create a form in Access that starts
Outlook from a command button. Then the automation code opens a new
contact screen for input in Outlook. After you add the contact, save, and
close the contact form, the automation code quits Outlook and returns to
the Access form.
To create a contact item in Outlook from an Access form, follow these
steps:
1. Open the sample database Automation.mdb created earlier.
2. Create a form that is not based on any table or query, add a command
button the form, and make the following property assignments:
Form: (save as frmOutlook) - Caption: Add to Outlook Form
Command button -
Name: cmdOutlook
Caption: Start Outlook\
OnClick: [Event Procedure]
3. On the View menu, click Code to open the Visual Basic Editor.
4. On the Tools menu, click References.
5. Click Microsoft Outlook 11.0 Object Library in the Available
References list.
6. Click OK to close the References dialog box.
7. Type or paste the following procedure in the OnClick event of the
command button:
Option Compare Database
Option Explicit
Public Sub cmdOutlook_Click ()
On Error GoTo StartError
Dim objOutlook As Object
Dim objItem As Object
'Create a Microsoft Outlook object.
Set objOutlook = CreateObject("Outlook.Application")
'Create and open a new contact form for input.
Set objItem = objOutlook.CreateItem(olContactItem)
'To create a new appointment, journal entry, email message,
note, post,
'or task, replace olContactItem above with one of the following:
'
' Appointment = olAppointmentItem
'Journal Entry = olJournalItem
'Email Message = olMailItem
' Note = olNoteItem
' Post = olPostItem
' Task = olTaskItem
objItem.Display
'Quit Microsoft Outlook.
Set objOutlook = Nothing
Exit Sub
StartError:
MsgBox "Error: " & Err & " " & Error
Exit Sub
End Sub
8. On the File menu, click Close and Return to Microsoft Access, and
switch the form to Form View.
9. Click Start Outlook. Notice that Outlook displays a new contact
screen.
10. Fill in the contact information for a new contact and click
Save and Close.
11. Start Outlook and click the Contacts in the Navigation pane.
Notice the contact shows up in the list of contacts.
