Frage : Zurückgreifen, um Info von der Frage zu lesen und Resultate auszusenden innen übertreffen

Hallo:

I haben einen Code, der Info von einer Frage liest und es die Resultate dann als Text innerhalb des Körpers einer eMail versendet, und Schleifen durch die Register von den verschiedenen Verkaufsleuten. Aber, anstatt, es als Text zu senden es vorziehen, würde ich, die Fragenresultate auszusenden übertreffe innen und habe dann, die Akte werden angebracht und gesendet dem verbundenen Verkäufer übertreffen. Wie kann ich dies tun?

thanks.
Joseph 
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:
50:
51:
52:
53:

Private VorForm_Open (Löschen als ganze Zahl)

Auf Störung Goto- SMError
    
    Schwache rs als DAO.Recordset
    Schwaches DB als Datenbank
    'Öffnet recordset, liest alle eMail merken diese Frage liest die Werte vom Feld, das EmailAddr, Tabelle tblEmails genannt wird
    Einstellen DB = CurrentDb
    Rs = db.OpenRecordset („AUSERWÄHLTES EmailAddr, TextoCom vom info_ped_presup_tot“) einstellen
    textEmail, textEmailOT verdunkeln als Schnur
    EMail als Schnur verdunkeln
        
     
    EMail = ""
    textEmailOT = ""
    
    
    'Läuft die Liste der Aufzeichnungen durch, die durch den oben genannten Anruf zurückgebracht werden
    Tun während nicht rs.EOF

        EMail = rs! EMailAddr
        textEmail = „Informe de Pedidos que Se abrieron en-EL Mismo Periodo Del Año pasado Betrug-SU presupuesto asociado y ein partir de Ahí todos los presupuestos que Se enviaron ein clientes durantes los 45 días siguientes ein partir de Hoy.“ U. Chr (13) u. Chr (10) u. Chr (13) u. Chr (10)
        textFooter = „Esta información OS servirá Para tener Mejor Visión de Posibles operaciones que Se estén gestionando y keine dejar pasar oportunidades.“ U. Chr (13) u. Chr (10)
        textFirma = „CRM Goldmine“
        Tun während eMail = rs! EMailAddr
                        
             textEmail = textEmail u. rs! TextoCom u. Chr (13) u. Chr (10)
             rs.MoveNext
             Wenn rs.EOF dann herausnehmen, tun
            'Zum email address senden, das von der Datenbank gelesen wird (Feld ist rs! EmailAddr)
            'Thema ist senden Selbst
             'Körper-Text ist „dieser ist ein Test eines Automobils senden“
        Schleife
        DoCmd.SendObject acSendNoObject, eMail, „[email protected]“, „Informe de Pedidos/Presup del Año vorhergehend“, textEmail u. Chr (13) u. Chr (10) u. textFooter u. Chr (13) u. Chr (10) u. textFirma, falsch
        textEmailOT = textEmailOT u. textEmail u. Chr (13) u. Chr (10) u. Chr (13) u. Chr (10)
        'Folgende Aufzeichnung lesen
        'rs.MoveNext
        
    Schleife

    'Nah und frei alle
    rs. Abschluss
    Rs einstellen = nichts
    Einstellen DB = nichts
    'Wenn textEmailOT <> "" dann DoCmd.SendObject acSendNoObject, „[email protected]“, „ABC“, textEmailOT, falsch
    

    DoCmd.RunMacro („cerrarform“)
    
        
    Unterseeboot herausnehmen

SMError:

Antwort : Zurückgreifen, um Info von der Frage zu lesen und Resultate auszusenden innen übertreffen

Dieses versuchen:

Ändern. Hafen = 465 zu. Hafen = 587 oder. Hafen = 25

 Dieses sollte arbeiten.

 587 ist der abgehende Hafen des Bedieners (smtp) für IMAP. Er verwendet ein TLS
Verschlüsselunganschluß.

 465 ist der abgehende Hafen des Bedieners (smtp) für Knall. Er benutzt ein SSL
Verschlüsselunganschluß.             

Ich fand ihn von hier: clikc zum zu sehen
Weitere Lösungen  
 
programming4us programming4us