Fråga : Ta fram överför automatiskt e-post, när betalningbeloppet är rakt

Hälsningexperter, den pröva förmiddagen för

I att skapa en query, var, när ett betalningbelopp rakt efter 30 dagar, därefter det ska automatiskt överför en e-post till me.

Currently, jag har en query för ”belopp rakt”, och ”Workorder” och 'att fakturera date'

How kan I-uppsättningen, om beloppet rakt > 0 och efter 30 dagar av fakturerar daterar, då det ska överför automatiskt en e-post till mig?

Should jag skapar en query? makro eller enhet? Jag önskar att den ska vara automatiskt avkänner, utan att öppna några, bildar. eller kan vara att bilda on_load på bilda som jag öppnar vanligt?

If som denna är confusing, mig, ska försök att förklara clearer.

Thanks " klar "

Svar : Ta fram överför automatiskt e-post, när betalningbeloppet är rakt

>, hur kan I-uppsättningen om beloppet rakt > 0, och efter 30 dagar av fakturera daterar
tillfoga >0 till amountduekolonnen och <>            VAR (((AmountDue) >0) OCH ((DateDue)<> e (), - 30))))

Att att överföra e-posten. du kunde köra kodifiera, när som helst du öppnar databasen, när du öppnar en närmare detalj, bilda, när du klickar en knäppas eller även en appell det från en makro och använder en planlagd uppgift att överföra den på en specifik tid. Beror på hur du önskar att göra den.

För kodifiera. är här ett enkelt exempel. ändra någon av kodifiera har andra postat. Klistra dessa två fungerar in i en enhet i din databas och redigerar SendReporten fungerar ändrande ”YourSavedQueryName” till det faktiskt namnger av din query, och ”[email protected]” till din e-post tilltalar, såväl som något annat (liksom sätta in namnger) som är de, behöver ändrande. Därefter appell som SendReporten fungerar från, wherever du skulle något liknande (något liknande på en knäppas klickar eller från en makro), för att överföra rapporten.

Allmänhet fungerar OutlookSend (den ByVal mailUseren som stränger, ByVal MsgSubject som stränger, msgbody ByVal som stränger) som Boolean
Dunkel appOutLook som Outlook.Application
Dunkla MailOutLook som Outlook.MailItem
På felet GoTo ErrHandler

Om inte IsNull (MailUser) och MailUser <> "" därefter

Fastställd appOutLook = CreateObject (”Outlook.Application”)
Fastställda MailOutLook = appOutLook.CreateItem (olMailItem)
Mottagareare = MailUser
Med MailOutLook
. Till = mottagareare
. Betvinga = MsgSubject
. Förkroppsliga = msgbody
.DeleteAfterSubmit = riktigt 'detta skulle l5At framtidsutsikt överför notera, utan att lagra den i överfört ditt, slänga i soptunnan
. Överför
Avsluta med

Fastställda MailOutLook = ingenting
Fastställd appOutLook = ingenting

Avsluta, om 'inte IsNull (MailUser)

ExitHere:
Gå ut fungerar

ErrHandler:
  Välj fallet Err.Number
Fall 0
   
    Meritförteckning ExitHere

Fall annars

    MsgBox ”fel” & Err.Number & ”(” & Err.Description & ”) i OutlookSend”,

Avsluta valt
Avsluta fungerar





Allmänhet fungerar SendReport ()

   
    Dunkla MyMsgBody, MySubject, MyMailAddress som stränger
    Dunkla ItemCount som heltal
    På felet GoTo ErrHandler

Om DCount (”*”, ”YourSavedQueryName”) > 0 därefter


Dunkla dbs som databas, rst som DAO.Recordset

    Fastställda dbs = CurrentDb
    Fastställd rst = dbs.OpenRecordset (”YourSavedQueryName”)

rst.MoveFirst
ItemCount = 0
Gör till rst.EOF
item1 = rst! AmountDue
item2 = rst! WorkOrder
item3 = rst! [Fakturera daterar],
MyMsgBody = MyMsgBody & item1 & vbTab & item2 & vbTab & item3 & vbCrLf
ItemCount = ItemCount + 1
rst.MoveNext
Kretsa
rst. Nära

MyMailAddress = ”[email protected]”,
MySubject = ”fakturerar rakt rapporten: ” & ItemCount & ”objekt”,

Om inte IsNull (MyMsgBody) och MyMsgBody <> "" retur därefter = OutlookSend (MyMailAddress, MySubject, MyMsgBody)

Avsluta om


ExitHere:
Gå ut fungerar

ErrHandler:
  Välj fallet Err.Number
Fall 0
   
    Meritförteckning ExitHere

Fall annars

    MsgBox ”fel” & Err.Number & ”(” & Err.Description & ”) i SendReport”,

Avsluta valt
Avsluta fungerar