Frage : Auf Programm zurückgreifen, das eine eMail sendet

OS: Windows Vista
Application: Microsoft Access 2003 und 2007
I schrieben ein Programm, dem jemand eine Frage fordern kann oder berichten über senden eine eMail. Die eMail wird 2003 gesendet. Aber, die eMail wird nicht gesendet, wenn man die Form in Zugang 2007 öffnet und verwendet. Ich nahm den Code vom Internet, um die eMail zu senden. Ich stellte zur Verfügung 
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

Dim bStarted, wie Boolesch
    Schwaches oOutlookApp als Outlook.Application
    Schwaches oItem als Outlook.MailItem
    
    
    Auf Störungs-Zusammenfassung zunächst

    'Aussicht erhalten, wenn sie läuft
    oOutlookApp = GetObject (, „Outlook.Application“) einstellen
    Wenn <> 0 dann sich irren
    'Aussicht ließ, beginnt laufen es nicht vom Code
    oOutlookApp = CreateObject („Outlook.Application“) einstellen
    bStarted = ausrichten
    Beenden wenn

'Ein neues mailitem verursachen
    oItem = oOutlookApp.CreateItem (olMailItem) einstellen

    Mit oItem
    'Die Empfänger für die neue eMail einstellen
    Wenn infoReqMod.ReqInfoData.RptOpt = 1 dann
        . Zu = „[email protected]“
    ElseIf infoReqMod.ReqInfoData.RptOpt = 2 dann
        . Zu = „METRIK UND TECHNOLOGIE DL-KNA SSC A/P“
    ElseIf infoReqMod.ReqInfoData.RptOpt = 3 dann
        . Zu = „[email protected]“
    Beenden wenn
    'Die Empfänger für eine Kopie einstellen
        .CC = „[email protected]“
    'Das Thema einstellen
    . Thema = „Informations-Antrag“
    'Der Inhalt des Dokuments wird als der Körper für die eMail benutzt
    . Körper = infoReqMod.CreateBody
    
    Wenn infoReqMod.attachments.blnHaveAttach = dann ausrichten
        I als ganze Zahl verdunkeln
        
        Für i = 0 zu infoReqMod.attachments.intCnt - 1
            .attachments. infoReqMod.attachments.strAttach addieren (i)
        Zunächst
    Beenden wenn
    
    . Senden
Mit beenden

Wenn Sie dann bStarted
    'Wenn wir Aussicht vom Code begannen, dann nah es
    oOutlookApp.Quit
Beenden wenn

Antwort : Auf Programm zurückgreifen, das eine eMail sendet

Ja.  Ein Kühlraum ist eine Wärmepumpe.
Zu das Innere kälter bilden heißer lassen, muss er die Außenseite.
Weitere Lösungen  
 
programming4us programming4us