First of all, to whomever reads and/or responds I thank you for your patience.
I am using Access 2010/Outlook 2010 32bit
I am relatively new to VBA and I am completely lost on how to accomplish the following:
My database was built to facilitate approvals for accounts payable.
My issue now is that I want to create a command button that sends out reminders using outlook.
To make it simplistic, here is what I have:
tblReceiveTemp-This table holds the following fields:
ID-Key, Level 1Approver, Level 1Approver Email, Status, ATT, Sprint, USA, Verizon, ATTReceiveStatus, SprintReceiveStatus, USAReceiveStatus, VerizonReceiveStatus
ReminderOne = rptReminderOne
ReminderTwo=rptReminderTwo
ReminderThree=rptReminderThree
tblEmailOutgoing-This table holds the following fields:
ID-Key, ApproverName, ATTNotificationBill, ATTReminderOne, ATTReminderTwo, ATTReminderThree, SprintNotificationBill, SprintReminderOne, SprintReminderTwo, SprintReminderThree, USANotificationBill, USAReminderOne, USAReminderTwo, USAReminderThree, VerizonNotificationBill, VerizonReminderOne, VerizonReminderTwo, VerizonReminderThree, COBDate
qryATTNotReceived –
SELECT tblReceiveTemp.ATTReceiveStatus, tblReceiveTemp.[Level 1Approver Email] AS Email, tblReceiveTemp.[Level 1Approver]
FROM tblReceiveTemp
WHERE (((tblReceiveTemp.ATTReceiveStatus)="NR"));
qrySprintNotReceived –
SELECT tblReceiveTemp.SprintReceiveStatus, tblReceiveTemp.[Level 1Approver Email] AS Email, tblReceiveTemp.[Level 1Approver]
FROM tblReceiveTemp
WHERE (((tblReceiveTemp.SprintReceiveStatus)="NR"));
qryUSANotReceived-
SELECT tblReceiveTemp.USAReceiveStatus, tblReceiveTemp.[Level 1Approver Email] AS Email, tblReceiveTemp.[Level 1Approver]
FROM tblReceiveTemp
WHERE (((tblReceiveTemp.USAReceiveStatus)="NR"));
qryVerizonNotReceived-
SELECT tblReceiveTemp.VerizonReceiveStatus, tblReceiveTemp.[Level 1Approver Email] AS Email, tblReceiveTemp.[Level 1Approver]
FROM tblReceiveTemp
WHERE (((tblReceiveTemp.VerizonReceiveStatus)="NR"));
So here is basically what I want to do and I need a lot of assistance with this code:
Reminder One:
If tblReceiveTemp.’Vendor’ReciveStatus, = “NR”
THEN sendobject “rptReminderOne” to all persons in qry’Vendor’NotReceived until EOF
Update tblEmailOutgoing.’Vendor”ReminderOne = Now()
**’Vendor’ is a placeholder for ATT, Sprint and Verizon.
Reminder Two:
If tblReceiveTemp.ATTReceiveStatus = “NR” and tlbEmailOutgoing.ReminderOne is not null
Then sendobject “rptReminderTwo” to all persons in qry’Vendor’NotReceived until EOF
Update tblEmailOutgoing.’Vendor’ReminderTwo = Now()
Reminder Three:
If tblReceiveTemp.ATTReceiveStatus = “NR” and tlbEmailOutgoing.ReminderTwo is not null
Then sendobject “rptReminderThree” to all persons in qry’Vendor’NotReceived until EOF
Update tblEmailOutgoing.’Vendor’ReminderThree = Now()
Basically all I need assistance with is setting up the code to send the emails. In addition, I need to verify that I have all of the correct references check in the code window.
Thanks again.
I am using Access 2010/Outlook 2010 32bit
I am relatively new to VBA and I am completely lost on how to accomplish the following:
My database was built to facilitate approvals for accounts payable.
My issue now is that I want to create a command button that sends out reminders using outlook.
To make it simplistic, here is what I have:
tblReceiveTemp-This table holds the following fields:
ID-Key, Level 1Approver, Level 1Approver Email, Status, ATT, Sprint, USA, Verizon, ATTReceiveStatus, SprintReceiveStatus, USAReceiveStatus, VerizonReceiveStatus
ReminderOne = rptReminderOne
ReminderTwo=rptReminderTwo
ReminderThree=rptReminderThree
tblEmailOutgoing-This table holds the following fields:
ID-Key, ApproverName, ATTNotificationBill, ATTReminderOne, ATTReminderTwo, ATTReminderThree, SprintNotificationBill, SprintReminderOne, SprintReminderTwo, SprintReminderThree, USANotificationBill, USAReminderOne, USAReminderTwo, USAReminderThree, VerizonNotificationBill, VerizonReminderOne, VerizonReminderTwo, VerizonReminderThree, COBDate
qryATTNotReceived –
SELECT tblReceiveTemp.ATTReceiveStatus, tblReceiveTemp.[Level 1Approver Email] AS Email, tblReceiveTemp.[Level 1Approver]
FROM tblReceiveTemp
WHERE (((tblReceiveTemp.ATTReceiveStatus)="NR"));
qrySprintNotReceived –
SELECT tblReceiveTemp.SprintReceiveStatus, tblReceiveTemp.[Level 1Approver Email] AS Email, tblReceiveTemp.[Level 1Approver]
FROM tblReceiveTemp
WHERE (((tblReceiveTemp.SprintReceiveStatus)="NR"));
qryUSANotReceived-
SELECT tblReceiveTemp.USAReceiveStatus, tblReceiveTemp.[Level 1Approver Email] AS Email, tblReceiveTemp.[Level 1Approver]
FROM tblReceiveTemp
WHERE (((tblReceiveTemp.USAReceiveStatus)="NR"));
qryVerizonNotReceived-
SELECT tblReceiveTemp.VerizonReceiveStatus, tblReceiveTemp.[Level 1Approver Email] AS Email, tblReceiveTemp.[Level 1Approver]
FROM tblReceiveTemp
WHERE (((tblReceiveTemp.VerizonReceiveStatus)="NR"));
So here is basically what I want to do and I need a lot of assistance with this code:
Reminder One:
If tblReceiveTemp.’Vendor’ReciveStatus, = “NR”
THEN sendobject “rptReminderOne” to all persons in qry’Vendor’NotReceived until EOF
Update tblEmailOutgoing.’Vendor”ReminderOne = Now()
**’Vendor’ is a placeholder for ATT, Sprint and Verizon.
Reminder Two:
If tblReceiveTemp.ATTReceiveStatus = “NR” and tlbEmailOutgoing.ReminderOne is not null
Then sendobject “rptReminderTwo” to all persons in qry’Vendor’NotReceived until EOF
Update tblEmailOutgoing.’Vendor’ReminderTwo = Now()
Reminder Three:
If tblReceiveTemp.ATTReceiveStatus = “NR” and tlbEmailOutgoing.ReminderTwo is not null
Then sendobject “rptReminderThree” to all persons in qry’Vendor’NotReceived until EOF
Update tblEmailOutgoing.’Vendor’ReminderThree = Now()
Basically all I need assistance with is setting up the code to send the emails. In addition, I need to verify that I have all of the correct references check in the code window.
Thanks again.