Pytanie : Dojazdowy Program Che Wysyłać Email

OS: Windows Vista
Application: Microsoft Dostęp 2003 i 2007
I napisać program che Microsoft móc zapytanie lub donosić wysyłać email. The email wysyłać w 2003. Ale, the email wysyłać gdy otwierać i używać the forma w dostęp 2007. I wziąć the kod od the internet the email. I provided 
(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 Boolowski
    Ciemnawy oOutlookApp Jako Outlook.Application
    Ciemnawy oItem Jako Outlook.MailItem
    
    
    Na Błąd Życiorys Następnie

    'Dostawać Światopogląd jeżeli ono biegać
    Ustawiać oOutlookApp = GetObject (, "Outlook.Application")
    Jeżeli Błądzić <> (0) Wtedy
    'Światopogląd biegać, zaczynać ono od kod
    Ustalony oOutlookApp = CreateObject ("Outlook.Application")
    bStarted = Prawdziwy
    Kończyć Jeżeli

'Tworzyć nowy mailitem
    Ustawiać oItem = oOutlookApp.CreateItem (olMailItem)

    Z oItem
    'Set the odbiorca dla the nowy email
    Jeżeli infoReqMod.ReqInfoData.RptOpt = (1) Wtedy
        . = "[email protected]"
    ElseIf infoReqMod.ReqInfoData.RptOpt = 2 Wtedy
        . = "DL KNA SSC A/P METRYKA I TECHNOLOGIA"
    ElseIf infoReqMod.ReqInfoData.RptOpt = 3 Wtedy
        . = "[email protected]"
    Kończyć Jeżeli
    'Set the odbiorca dla kopia
        .CC = "[email protected]"
    'Set the temat
    . Temat = "Ewidencyjny Prośba"
    'The zawartość the dokument używać jako the ciało dla the email
    . Ciało = infoReqMod.CreateBody
    
    Jeżeli infoReqMod.attachments.blnHaveAttach = Prawdziwy Wtedy
        Ćmić i Jako Integer
        
        Dla i = (0) InfoReqMod.attachments.intCnt - (1)
            .attachments. Dodawać infoReqMod.attachments.strAttach (i)
        Następnie
    Kończyć Jeżeli
    
    . Wysyłać
Kończyć Z

Jeżeli bStarted Wtedy
    'Jeżeli my zaczynać Światopogląd od kod, then zamykać ono
    oOutlookApp.Quit
Kończyć Jeżeli

Odpowiedź : Dojazdowy Program Che Wysyłać Email

Tak.  Chłodziarka być upał pompa.
The inside zimny, ono musieć the outside gorący.
Inne rozwiązania  
 
programming4us programming4us