用程序新建任务到mobile上自带的任务管理里 Dim session As New OutlookSession() Dim tsk As New Task() tsk.Subject = "coco" tsk.Body = TextBox1.Text tsk.Sensitivity = Sensitivity.Normal tsk.StartDate = System.DateTime.Now tsk.DueDate = System.DateTime.Now.AddDays(1) tsk.ReminderRepeat = True tsk.Categories = "categories" tsk.Importance = Importance.Normal tsk.ReminderLed = True tsk.StartDate = Convert.ToDateTime("2009-02-21 22:10:00") session.Tasks.Items.Add(tsk) 添加约会 Dim appointment As New Appointment() appointment.Subject = "约会" appointment.Start = New DateTime(2009, 2, 22, 22, 10, 10) appointment.Duration = New TimeSpan(0, 1, 10) appointment.ReminderVibrate = True session.Appointments.Items.Add(appointment) 联系人 '遍历联系人 Dim contact As New Contact For Each contact In session.Contacts.Items System.Console.WriteLine("File As:" & contact.FileAs) System.Console.WriteLine("Email 1address:" & contact.Email1Address) Next '添加联系人 Dim adCont As Contact adCont = session.Contacts.Items.AddNew() adCont.FileAs = "Test Man" adCont.FirstName = "Test" adCont.LastName = "Man;" adCont.Email1Address = "test@abc.com" adCont.Update() 尝试发邮件或短消息 Dim contactDlg As New ChooseContactDialog() contactDlg.Title = "select user to send memmsage" If (contactDlg.ShowDialog() = Windows.Forms.DialogResult.OK) Then MessageBox.Show(contactDlg.SelectedContactName) Dim message = New SmsMessage(contactDlg.SelectedContact.MobileTelephoneNumber, "are you going to?") 'CType(message, SmsMessage).RequestDeliveryReport = True 'CType(message, SmsMessage).Send() 有问题 End If