Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
Dim objApp As Outlook.Application Dim objNS As Outlook.Namespace Dim objFolder As Outlook.MAPIFolder Dim objDummy As Outlook.MailItem Dim objRecip As Outlook.Recipient Dim objAppt As Outlook.AppointmentItem Dim strMsg As String Dim strName As String On Error Resume Next ' ### name of person whose Calendar you want to use ### strName = "email.address" Set objApp = CreateObject("Outlook.Application") Set objNS = objApp.GetNamespace("MAPI") Set objDummy = objApp.CreateItem(olMailItem) Set objRecip = objDummy.Recipients.Add(strName) objRecip.Resolve If objRecip.Resolved Then On Error Resume Next Set objFolder = _ objNS.GetSharedDefaultFolder(objRecip, _ olFolderCalendar) If Not objFolder Is Nothing Then Set objAppt = objFolder.Items.Add If Not objAppt Is Nothing Then With objAppt .RequiredAttendees = "email.address;email.address" .Subject = "Store flip " .Start = year1 & "/" & month1 & "/" & day1 .AllDayEvent = True .Body = "Please create in new store location" .BusyStatus = olBusy .Send .Save End With End If End If Else MsgBox "Could not find " & Chr(34) & strName & Chr(34), , _ "User not found" End If Set objApp = Nothing Set objNS = Nothing Set objFolder = Nothing Set objDummy = Nothing Set objRecip = Nothing Set objAppt = Nothing
|Link a textbox in excel to a cell with more than 255 characters.||5||83|
|SSRS expression Issue finding a string||10||76|
|JSON Response and request in VB6 application||11||386|
|Getting warning: You are about to delete 1 row(s)||9||48|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!