using Microsoft.WindowsMobile.PocketOutlook

最新推荐文章于 2025-07-23 14:30:50 发布

原创最新推荐文章于 2025-07-23 14:30:50 发布 · 1.2k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#textbox #任务 #session #mobile #email #each

嵌入式下的开发专栏收录该内容

4 篇文章

订阅专栏

本文介绍如何利用VBA脚本在Outlook中创建任务和约会，包括设置主题、开始日期、截止日期等属性，并展示了如何遍历联系人及发送短信的基本流程。

用程序新建任务到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