D
Dave
This email gets added to the calendar but not sent any idea why ?
Thanks in advance
Dim outlook As New Microsoft.WindowsMobile.PocketOutlook.OutlookSession
Dim ma As New Microsoft.WindowsMobile.PocketOutlook.Appointment()
ma.Subject = Subject
ma.Recipients.Add(New
Microsoft.WindowsMobile.PocketOutlook.Recipient(UserName, Usermail))
ma.Start = StartDate
ma.End = EndDate
ma.Body = MsgBody
ma.Duration = New TimeSpan(1)
outlook.Appointments.Items.Add(ma)
ma.Update()
ma.Send()
VS 2203 SP1
Vb.net
Thanks in advance
Dim outlook As New Microsoft.WindowsMobile.PocketOutlook.OutlookSession
Dim ma As New Microsoft.WindowsMobile.PocketOutlook.Appointment()
ma.Subject = Subject
ma.Recipients.Add(New
Microsoft.WindowsMobile.PocketOutlook.Recipient(UserName, Usermail))
ma.Start = StartDate
ma.End = EndDate
ma.Body = MsgBody
ma.Duration = New TimeSpan(1)
outlook.Appointments.Items.Add(ma)
ma.Update()
ma.Send()
VS 2203 SP1
Vb.net