MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Sub Set_Outlook_Reminder() Dim objOutlook As Object Dim objAppt As Object Dim objNamespace As Object Dim objFolder As Object Worksheets("Customer Database").Activate Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Set objFolder = objNamespace.GetDefaultFolder(9) Set objAppt = objFolder.Items.Add 'create task item With objAppt .Start = ActiveCell.Value - 31 + TimeValue("08:00:00") .End = .Start + TimeValue("00:30:00") .Subject = "Invoice " + ActiveCell.Offset(-2, 0).Value .Location = "" .Body = "" .BusyStatus = olBusy .ReminderMinutesBeforeStart = 120 .ReminderSet = True .Save End With Set objAppt = Nothing Set objFolder = Nothing Set objNamespace = Nothing Set objOutlook = Nothing MsgBox "Successfully Added to Outlook" End Sub
|In Excel 2007, how can I lock a value in two cells if "Yes" has been selected in a drop-down list?||7||60|
|Excel 2007 Comparing Cell Contents with IF Statements||12||36|
|Need Help with Mapping ONLY||9||24|
|Text box keydown event does not work||38||40|