Auto scan/send

Status
Not open for further replies.

Bryan

New Member
Outlook version
Outlook 2013 32 bit
Email Account
Exchange Server 2013
Hello,
I am still new to the coding world and I could use some help. We are trying to set up outlook to automaticly scan the inbox for a specific subject line in an email. Once that has happend we need outlook to send an email stating that the email in question has been recieved or has not been recieved. This will be used to verify that emails dealing with reports have been sent out, now I have been able to set up outlook to send an auto email when it recieves the report email by using the rules in outlook. The problem I am having is setting outlook up to scan the inbox at a specific time and then send out a "Did not recieve" email if the report email does not come in. One of my co-workers sugested that I use this code and try to modify it to suite our needs, and this code works fine but it has to be run manualy and to only gives a pop up box. Any ideas? I am greatful for any help I can get.

Private Sub Application_Reminder(ByVal Item As Object)
If Item.Class = olTask Then
If InStr(Item.Subject, "subject") > 0 Then
ReminderUnreceivedMail
End If
End If
End Sub
Sub ReminderUnreceivedMail()
Dim Itms As Items
Dim srchSender As String
Dim srchSubject As String
Set Itms = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
srchSender = "sender"
srchSubject = "xyz"
Set Itms = Itms.Restrict("[SenderName] = 'sender' And [Subject] = 'subject' And [SentOn] > '" & Format(Date, "yyyy-mm-dd") & "'")
If Itms.Count = 0 Then
MsgBox "No " & srchSubject & " email on " & Format(Date, "yyyy-mm-dd")
End If
Set Itms = Nothing
End Sub
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange

Bryan

New Member
Outlook version
Outlook 2013 32 bit
Email Account
Exchange Server 2013
Diane,
Thank you for your help.
 

Bryan

New Member
Outlook version
Outlook 2013 32 bit
Email Account
Exchange Server 2013
Alright I was able to use the the script that you pointed me to. But I still cannot get it to send a email, perhaps I am not setting it up correctly. This is how I currently have it.
Private Sub Application_Reminder(ByVal Item As Object)
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
If Item.MessageClass <> "IPM.Appointment" Then
Exit Sub
End If
If Item.Categories <> "my.name@mywork.com" Then
Exit Sub
End If
objMsg.To = Item.Location
objMsg.Subject = Item.XYZ
objMsg.Body = Not Item.XYZ
objMsg.Send
Set objMsg = Nothing
End Sub
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
On the meeting that is triggering the reminder, you set a category of "my.name@mywork.com" ? The subject and body lines need to contain a string - it can be values from the original message.

Replace this part:
objMsg.To = Item.Location
objMsg.Subject = Item.XYZ
objMsg.Body = Not Item.XYZ
objMsg.Send

with the call to your macro:
ReminderUnreceivedMail

in your macro, add

Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
objMsg.To = "alias @ domain.com" ' instead of putting the address in the location field of the appt.
objMsg.Subject = "No " & srchSubject & " email on " & Format(Date, "yyyy-mm-dd")
objMsg.Body = "Did not find this email message: " & srchSubject & " email on " & Format(Date, "yyyy-mm-dd")
objMsg.Send
Set objMsg = Nothing
 

Bryan

New Member
Outlook version
Outlook 2013 32 bit
Email Account
Exchange Server 2013
Thank you so much, I will work on implamenting this.
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
R Auto display of new email does not work on non-default account Outlook VBA and Custom Forms 0
B Outlook 2016 Auto-archive creates new folder Using Outlook 4
J Edit auto-complete list in Outlook 2016+/365? Using Outlook 0
P Auto assign shared mailbox Outlook VBA and Custom Forms 1
M Outlook 2010 Problem with OutLook 2010 32 bit, after Windows Auto Update Using Outlook 3
P [SOLVED] Auto remove [EXTERNAL] from subject Using Outlook 6
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
N Disable Auto Read Receipts sent after using Advanced Find Using Outlook 4
Q Prompt button to auto turn on Out of Office Outlook VBA and Custom Forms 3
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
S Messages moved / deleted by auto-archive are not synchronized to exchange Exchange Server Administration 8
B Outlook 2010 is Auto Purging when not configured for that Using Outlook 1
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
A Auto Accept Meetings from the General Calendar Using Outlook 3
R auto send email when meeting closes from a shared calendar only Outlook VBA and Custom Forms 2
S auto-mapping mailboxes in outlook impacting an ost file? Exchange Server Administration 2
M Auto expand Distribution List Before Sending Email Outlook VBA and Custom Forms 1
M Auto-export mail to Excel Outlook VBA and Custom Forms 2
Ms_Cynic Auto-pasting email content in calendar appt? Using Outlook 2
R How Do I insert images in and Auto Reply Using Outlook 3
S Received mail as part of DL, need to auto-CC the same when replying Outlook VBA and Custom Forms 5
T Have Outlook 2016 suggest email address auto complete entries directly from the user's contacts list Using Outlook 10
T Have Outlook 2016 suggest email address auto complete entries directly from the user's contacts list Using Outlook 0
P Auto scroll to specific folder in Folder Pane Outlook VBA and Custom Forms 3
C Auto categorize duplicate subjects Outlook VBA and Custom Forms 11
N Auto-complete - block select emails Using Outlook 3
C Auto save outlook attachments when email is received Outlook VBA and Custom Forms 1
J HELP- Rule to auto strip prepend from external emails Using Outlook 0
S BCM Auto Backup Data and Customizations BCM (Business Contact Manager) 6
G Auto accept meeting request for non primary account Outlook VBA and Custom Forms 1
J Outlook Rules - Changing auto-submit address in multiple rules, according to rule name Outlook VBA and Custom Forms 0
E Outlook Form - Voting Responses Not Auto Processing If Form Contains Any Code Outlook VBA and Custom Forms 0
J Auto Forward - Include Attachment and change Subject depending on original sender Outlook VBA and Custom Forms 3
K Extract email address from body and auto-reply outlook Using Outlook 1
S Auto move search results to folder Outlook VBA and Custom Forms 0
E Outlook 2010 disable date auto-complete Using Outlook 2
C Auto subject,name,email,deferred Using Outlook 2
ashcosta2 Auto Reply rule based on speficied time Outlook VBA and Custom Forms 0
B Auto Preview Attachment in Inspector Reading Pane Outlook VBA and Custom Forms 1
Z Auto Forward Using Outlook 4
M can anyone recommend an alternative to DS auto-followup? Using Outlook 2
S Rules to auto redirect Using Outlook 5
B Auto Save of Attachments from Multiple Emails and forward attachments to user group Outlook VBA and Custom Forms 1
A Auto Insert of filename when selecting 'Remove Attachment' Using Outlook 1
C Auto Add a PDF to an outgoing Email, based on a rule Using Outlook 2
B Auto open PDF Outlook VBA and Custom Forms 0
P Is it possible to convert address book to "Auto-Complete List" (NK2)? Using Outlook 5
B Auto name checking upon Tab or Click off To field(s) Using Outlook 19
J Auto Accept Notifications from a shared icloud calendar? Using Outlook 4
N Auto-forwarding an Email received from a specific Email address After slight modifications Using Outlook 4
Similar threads


















































Top