Vraag : Het Programma van de toegang dat een E-mail verzendt

OS: Vensters Vista
Application: Microsoft Access 2003 en 2007
I schreven een programma dat iemand om een vraag kan verzoeken of melden verzendt een e-mail. E-mail wordt verzonden in 2003. Maar e-mail wordt niet verzonden wanneer het openen van en het gebruiken van de vorm in toegang 2007. Ik nam de code van Internet om e-mail te verzenden. Ik verstrekte
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

Dim bStarted Van Boole
    Schemerige oOutlookApp als Outlook.Application
    Schemerige oItem als Outlook.MailItem
    
    
    Op Fout hervat daarna

    'Krijg Vooruitzichten als het loopt
    Plaats oOutlookApp = GetObject (, „Outlook.Application“)
    Als <> 0 me dan vergis
    De 'vooruitzichten stelden, beginnen het niet in werking van code
    Reeks oOutlookApp = CreateObject („Outlook.Application“)
    bStarted = Waar
    Beëindig als

'Cre�ër een nieuwe mailitem
    Plaats oItem = oOutlookApp.CreateItem (olMailItem)

    Met oItem
    'Plaats de ontvanger voor nieuwe e-mail
    Als infoReqMod.ReqInfoData.RptOpt = 1 toen
        . Aan = „[email protected]“
    ElseIf infoReqMod.ReqInfoData.RptOpt = 2 toen
        . = „METRIEK DL KNA SSC A/P EN TECHNOLOGIE“
    ElseIf infoReqMod.ReqInfoData.RptOpt = 3 toen
        . Aan = „[email protected]“
    Eind als
    'Plaats de ontvanger voor een exemplaar
        .CC = „[email protected]“
    'Plaats het onderwerp
    . Onderwerp = het „Verzoek van de Informatie“
    De 'inhoud van het document wordt gebruikt als lichaam voor e-mail
    . Lichaam = infoReqMod.CreateBody
    
    Als infoReqMod.attachments.blnHaveAttach = Waar toen
        Schemerige I als Geheel
        
        Voor I = 0 aan infoReqMod.attachments.intCnt - 1
            .attachments. Voeg infoReqMod.attachments.strAttach (I) toe
        Daarna
    Eind als
    
    . Verzend
Eind met

Als toen bStarted
    'Als wij Vooruitzichten van code begonnen, sluit het dan
    oOutlookApp.Quit
Beëindig als

Antwoord : Het Programma van de toegang dat een E-mail verzendt

Ja.  Een ijskast is een warmtepomp.
Om binnen kouder te maken, moet het de buitenkant heter maken.
Andere oplossingen  
 
programming4us programming4us