Vraag : De toegang tot gelezen info van vraag en stuurt resultaten binnen uitblinkt

Hello:

I heeft een code die info van een vraag leest en dan het de resultaten als tekst binnen het lichaam van een e-mail, en lijnen door de registers van verschillende verkoopmensen verstuurt. Maar in plaats van het verzenden van het uit aangezien tekst, ik zou verkiezen de vraagresultaten binnen te sturen blink en hebben dan dat dossier in bijlage en verzonden is naar de geassoci�ërde winkelbediende uitblinkt. Hoe kan ik dit doen?

thanks.
Joseph
" codeBody " 
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 SubForm_Open (annuleer als Geheel)

Op Fout GoTo SMError
    
    Schemerige rs als DAO.Recordset
    Schemerige db als Gegevensbestand
    'Opent recordset, leest alle e-mail nota nemen van deze vraag de waarden van het gebied genoemd EmailAddr, lijst tblEmails leest
    Vastgesteld db = CurrentDb
    Reeks rs = db.OpenRecordset („UITGEZOCHTE EmailAddr, TextoCom VAN info_ped_presup_tot“)
    Schemerige textEmail, textEmailOT als Koord
    Schemerige E-mail als Koord
        
     
    E-mail = ""
    textEmailOT = ""
    
    
    'Gaat door de lijst van verslagen door de bovengenoemde vraag zijn teruggekeerd die
    Doe terwijl niet rs.EOF

        E-mail = rs! EMailAddr
        textEmail = „bedriegt Se abrieron Engelse Gr mismo periodo del año pasado van Informe DE pedidos que su presupuestoasociado y Se van partirDE ahí todos los presupuestos que enviaron clientes durantes los 45 días siguientes een hoy partir DE.“ & Chr (13) & Chr (10) & Chr (13) & Chr (10)
        textFooter = „van paragraaf tener mejor visión DE posibles operaciones que Se van Esta información os servirá gestionando y estén geen dejar pasar oportunidades.“ & Chr (13) & Chr (10)
        textFirma = „CRM Goldmine“
        Doe terwijl E-mail = rs! EMailAddr
                        
             textEmail = textEmail & rs! TextoCom & Chr (13) & Chr (10)
             rs.MoveNext
             Als dan de Uitgang rs.EOF 
            'Verzend naar e-maildieadres van het gegevensbestand wordt gelezen (het gebied is rs! EmailAddr)
            Het 'onderwerp is Auto verzendt
             De 'tekst van het lichaam is „dit is een test van een auto verzendt“
        Lijn
        DoCmd.SendObject acSendNoObject, E-mail, „[email protected]“, „Informe DE Pedidos/Presup del Voorafgaande Año“, textEmail & Chr (13) & Chr (10) & textFooter & Chr (13) & Chr (10) & Valse textFirma,
        textEmailOT = textEmailOT & textEmail & Chr (13) & Chr (10) & Chr (13) & Chr (10)
        'Lees volgende verslag
        'rs.MoveNext
        
    Lijn

    'Dicht en ontruim allen
    rs. Sluit
    Plaats rs = niets
    Plaats db = niets
    'Als textEmailOT <> "" toen DoCmd.SendObject acSendNoObject, „[email protected]“, „ABC“, textEmailOT, Vals
    

    DoCmd.RunMacro („cerrarform“)
    
        
    Sub van de uitgang

SMError:

Antwoord : De toegang tot gelezen info van vraag en stuurt resultaten binnen uitblinkt

Probeer dit:

Verandering. Haven = 465 aan. Haven = 587 of. Haven = 25

 Dit zou moeten werken.

 587 zijn de Uitgaande server (SMTP) haven voor IMAP. Het gebruikt een TLS
encryptie verbinding.

 465 zijn de Uitgaande server (SMTP) haven voor pop. Het gebruikt SSL
encryptie verbinding.             

Ik vond het hier van: clikc om te zien
Andere oplossingen  
 
programming4us programming4us