Pytanie : Dostęp info od zapytanie i przodować rezultat wewnątrz przodować

Cześć:

I mieć kod który czytać info od zapytanie i wtedy wysyłać ono wtedy the rezultat jako tekst wśród the ciało email, i pętla przez the rejestr od różny sprzedaż ludzie. Ale zamiast dosłanie ono jako tekst, I woleć sprzedawca the zapytanie rezultat wewnątrz przodować i wtedy mieć który przodować kartoteka dołączać i wysyłać the kojarzony sprzedawca. Dlaczego móc I to?

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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

Private Okręt podwodny Form_Open (Odwoływać Jako Integer)

Na Błąd Rozpoczynający SMError
    
    Ciemnawy rs Jako DAO.Recordset
    Ciemnawy db Jako Baza danych
    'Otwierać recordset, czytać wszystkie the email notatka ten zapytanie czytać the wartość od the pole dzwonić EmailAddr, stołowy tblEmails
    Set db = CurrentDb
    Ustalony rs = db.OpenRecordset ("WYBRANY EmailAddr, TextoCom OD info_ped_presup_tot")
    Ciemnawy textEmail, textEmailOT Sznurek
    Ciemnawy Email Sznurek
        
     
    Email = ""
    textEmailOT = ""
    
    
    'Iść przez the lista rejestr wracać the wracać wezwanie
    Robić Podczas Gdy Nie rs.EOF

        Email = rs! EMailAddr
        textEmail = "Informe de pedidos que se abrieron en el mismo periodo del año pasado przeciw su presupuesto asociado y partir de ahí todos los presupuestos que se enviaron clientes durantes los 45 días siguientes partir de hoy." & Chr (13) & Chr (10) & Chr (13) & Chr (10)
        textFooter = "Esta información os servirá para tener mejor visión de posibles operaciones que se estén gestionando y żadny dejar pasar oportunidades." & Chr (13) & Chr (10)
        textFirma = "CRM Goldmine"
        Robić Podczas Gdy Email = rs! EMailAddr
                        
             textEmail = textEmail & rs! TextoCom & Chr (13) & Chr (10)
             rs.MoveNext
             Jeżeli rs.EOF Wtedy Wychodzić
            'Wysyłać adres emaila read od the baza danych (pole być rs! EmailAddr)
            'Temat być Auto Wysyłać
             'Ciało Tekst być "Być być test samochód wysyłać"
        Pętla
        DoCmd.SendObject acSendNoObject, Email, "[email protected]", "Informe de Pedidos/Presup del Año TextFirma", textEmail & Chr (13) & Chr (10) & textFooter & Chr (13) & Chr (10) & textFirma, Fałszywy
        textEmailOT = textEmailOT & textEmail & Chr (13) & Chr (10) & Chr (13) & Chr (10)
        'Czytać następny rejestr
        'rs.MoveNext
        
    Pętla

    'Zakończenie i jasny wszystko
    rs. Zakończenie
    Ustalony rs = Nic
    Set db = Nic
    'Jeżeli textEmailOT <> "" Wtedy DoCmd.SendObject acSendNoObject, "[email protected]", "ABC", textEmailOT, Fałszywy
    

    DoCmd.RunMacro ("cerrarform")
    
        
    Wyjście Okręt podwodny

SMError:

Odpowiedź : Dostęp info od zapytanie i przodować rezultat wewnątrz przodować

Próbować to:

Zmiana. Port = 465. Port = 587 lub. Port = 25

 To musieć.

 587 być the Otwarty serwer (SMTP) port dla IMAP. Ono używać TLS
utajnianie związek.

 465 być the Otwarty serwer (SMTP) port dla wystrzał. Ono używać SSL
utajnianie związek.             

I zakładać ono od tutaj: clikc
Inne rozwiązania  
 
programming4us programming4us