Fråga : Ta fram programet som överför en e-post

OS: Windows Vista
Application: Microsoft Access 2003 och 2007
I skrev ett program, som någon kan be en query, eller anmäler en överföring en e-post. E-posten överförs i 2003. Men e-posten överförs inte, när när du öppnar och att använda bilda tar fram in 2007. Jag tog kodifiera från internet för att överföra e-posten. Jag g > för

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:

" codeBody " " >Dim för class= " för 0 därefter 'Framtidsutsikten var inte rinnande, startar den från för att kodifiera Fastställd oOutlookApp = CreateObject (”Outlook.Application”) bStarted = True Avsluta om 'Skapa en ny mailitem Fastställd oItem = oOutlookApp.CreateItem (olMailItem) Med oItem 'Uppsättning det mottagareare för den nya e-posten Om infoReqMod.ReqInfoData.RptOpt = 1 därefter . Att = ”[email protected]”, ElseIf infoReqMod.ReqInfoData.RptOpt = 2 därefter . Att = ”METRIK OCH TEKNOLOGI för DL KNA SSC A/P”, ElseIf infoReqMod.ReqInfoData.RptOpt = 3 därefter . Att = ”[email protected]”, Avsluta om 'Uppsättning det mottagareare för en kopiera .CC = ”[email protected]”, 'Uppsättning betvinga . Betvinga = ”informationsförfråganen”, 'Det nöjt av dokumentet används som förkroppsliga för e-posten . Förkroppsliga = infoReqMod.CreateBody Om infoReqMod.attachments.blnHaveAttach = True därefter Dunkelt I som heltal För I = 0 till infoReqMod.attachments.intCnt - 1 .attachments. Tillfoga infoReqMod.attachments.strAttach (I) Därefter Avsluta om . Överför Avsluta med Om bStarted därefter 'Om vi startade framtidsutsikt från för att kodifiera, därefter nära det oOutlookApp.Quit Avsluta om " klar "

Svar : Ta fram programet som överför en e-post

Ja.  Ett kylskåp är en värma pumpar.
Att göra det inre mer kall det måste att göra yttersidan varmmare.