Need help modifying a VBA script for in coming emails to auto set custom reminder time

FryW

Member
Outlook version
Outlook 365 64 bit
Email Account
Outlook.com (as MS Exchange)
On in coming emails, if title and sender match the IFs then auto set "follow up" for today with a custom reminder time for between 3pm and 3:30pm.



Option Explicit
Private WithEvents inboxItems As Outlook.Items

Private Sub Application_Startup()
Dim outlookApp As Outlook.Application
Dim objectNS As Outlook.NameSpace

Set outlookApp = Outlook.Application
Set objectNS = outlookApp.GetNamespace("MAPI")
Set inboxItems = objectNS.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub inboxItems_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler

Dim Msg As Outlook.MailItem
Dim MessageInfo
Dim Result
If TypeName(Item) = "MailItem" Then
MessageInfo = "" & _
"Sender : " & Item.SenderEmailAddress & vbCrLf & _
"Sent : " & Item.SentOn & vbCrLf & _
"Received : " & Item.ReceivedTime & vbCrLf & _
"Subject : " & Item.Subject & vbCrLf & _
"Size : " & Item.Size & vbCrLf & _
"Message Body : " & vbCrLf & Item.Body
'Result = MsgBox(MessageInfo, vbOKOnly, "New Message Received")

If (Item.Subject = "Frytest" & Item.SenderEmailAddress = "Fry@gmail.com") Then

Dim max, min
max = 29
min = 1
Randomize
rT = response.Write(Int((max - min + 1) * Rnd + min))
MagBox rT

With Item
.FlagRequest = "Type the custom follow-up notes here"
.MarkAsTask olMarkToday
'Set a custom due date
.TaskDueDate = Date

'.DueDate = Date + 7.5
.DueDate = Date

.ReminderSet = True

'.ReminderTime = objTask.DueDate - 0.25
.ReminderTime = "#" & Date & " 3:" & rT & ":00 PM#"
'.ReminderTime = #10/10/2005 12:00:00 PM#

.Save
End With
End If
End If

ExitNewItem:
Exit Sub

ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ExitNewItem
End Sub
 
Similar threads
Thread starter Title Forum Replies Date
L Need help modifying a VBA script for emails stuck in Outbox Outlook VBA and Custom Forms 6
I Outlook for Mac 2019 using on desktop and laptop IMAP on both need help with folders Using Outlook 1
S.Champ Please help? I've imported a random workcalendar I dont even know who's. Can I undo it? and then I need to re-sync the google one again. Its a mess:( Using Outlook 2
Marc2019 Need help please! Cannot Setup my outlook email account on my Mac Outlook 2011 Using Outlook.com accounts in Outlook 2
C need help setting up outlook first time Using Outlook 1
N Need help syncing contacts to iPhone X Using Outlook 8
S Error using AddressEntry.GetContact - need help Outlook VBA and Custom Forms 2
E Outlook 2010 need help with rules Using Outlook 0
B Need Help - Willing to pay Outlook VBA and Custom Forms 10
J Need Help with Contacts VBA Outlook VBA and Custom Forms 1
H Need help setting up GetFolderPath-Makro with Vodafone IMAP Mail-Account Outlook VBA and Custom Forms 0
T Need help with finding/updating task Outlook VBA and Custom Forms 1
Denis Hi everyone!!! Need some help with Excel to Exchange Calendar??PLEASE>>> Using Outlook 1
E Need Help on Setting up a repeated Reminder on Task with Reoccurence Every Year Using Outlook 6
B Need Help Creating Email Based on Subject w Address in Body Outlook VBA and Custom Forms 1
G Need help configuring a PRF for Outlook 2010 and 2013 Using Outlook 0
K Excel Import Option: Need Help Updating Existing Records BCM (Business Contact Manager) 0
K Need help concerning emails linking to BCM. BCM (Business Contact Manager) 0
J Need help with installation of BCM in Outlook2013 BCM (Business Contact Manager) 5
F Outlook 2010 - Need help with a custom field. Using Outlook 3
D Need Help with Script. Keep getting Runtime Error 438 BCM (Business Contact Manager) 4
R Need help getting BCM to work with my Outlook 2014 Using Outlook 4
L Need help getting calendar/contacts/tasks/notes back! Using Outlook 3
R [VBA] complicated(?) outlook events - need help with code Using Outlook 15
P Need help/Gmail accounts show separately/Outlook 2013 Using Outlook 0
J Need Help Extracting Email Content into Excel Specifically the Attachment Name Using Outlook 3
A Need Help with BCM2010 Sharing on outlook 2013 Scenario! BCM (Business Contact Manager) 1
C Need Help with Simple Code Correction Using Outlook 11
W I Need help with vb.net and outlook 2010 Using Outlook 2
A My move to MS is not going too well: Need Help !!! Using Outlook 14
M Need help with combo boxes in messages! Using Outlook 10
D Need help understanding which pst-file to use! Using Outlook 0
U Need a help please Outlook 2007 crashing Using Outlook 2
Z Need Help Outlook 2007 inbox and address book view Using Outlook 2
B Need help adding a background color to the compact list items in Month view. Using Outlook 1
B Need help adding an image next to the Month Name in the header. Using Outlook 1
B Ok - a complicated one - but really need help (auto formatting) Using Outlook 9
B OUTLOOK 2000, Need Help ! Outlook Wishlist 1
P To Use BCM or not...I need help BCM (Business Contact Manager) 1
T Need help making RULE to prepend email SUBJECT Using Outlook 3
V Need help on configuring Outook 2003 Rules and Alerts... Using Outlook 2
X business owner in dire need of help outlook is not syncin my contacts! Using Outlook.com accounts in Outlook 2
D Need email verification for international emails, help? BCM (Business Contact Manager) 2
S MAcro - Need help in getting the recipients in to filed / cc field toput in an array Outlook VBA and Custom Forms 4
K Need help Publishing a new Task form! Outlook VBA and Custom Forms 1
A Need help in creating a mass emailing plugin Outlook VBA and Custom Forms 1
T need help w/ sending an e-mail -- outlook 2007 addin Outlook VBA and Custom Forms 2
B Need to Copy an email to a subfolder Outlook VBA and Custom Forms 2
D Do I need Exchange Add-In? Using Outlook 6
K Need to convert .mmf file to .pst format Outlook VBA and Custom Forms 7

Similar threads

Top