Enviar correo en forma desatendida?

[Armando]

Hola Foreros:

Con las más recientes versión de FWH, más específicamente desde el PREVIEW existe
la forma de enviar por correo la imagen de la vista previa.

La pregunta, es posible llenar todo lo necesario y enviar el correo sin que pase por
Outlook?, es decir; pasar el destinatario, el mensaje, el título del mensaje y el o los
adjuntos y que el correo salga en forma automática?

Saludos

[karinha]

no use el preview, use el RMAIL.PRG:

http://www.pctoledo.com.br/forum/downlo ... hp?id=6904

Saludos.

[Armando]

Karinha:

Vou dar uma olhada

obrigado

[karinha]

Armando, mira / olha: Enviando automático centenas de emails sem o usuário interferir. Botão: <Enviar Email Automático>.



Saludos, Saudações.

[Armando]

Kainha:

Muito Obrigado.

Saudações

[karinha]

Armando, o dialogo que uso para melhor te ajudar. Como falas português, será fácil.

Code: Select all

DLG_TIPO_OUTLOOK DIALOG 200, 63, 320, 290
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "PLENOWIN: Enviador de Email da NF-e."
FONT 8, "MS Sans Serif"

{
 EDITTEXT 20, 60, 1, 236, 12, ES_MULTILINE | NOT WS_TABSTOP | WS_BORDER
 EDITTEXT 21, 60, 14, 236, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP
 EDITTEXT 22, 60, 27, 236, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP
 EDITTEXT 23, 60, 40, 236, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP
 EDITTEXT 24, 60, 53, 258, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP
 EDITTEXT 25, 0, 79, 318, 58, ES_MULTILINE | WS_BORDER | WS_VSCROLL | WS_TABSTOP
 PUSHBUTTON "&Enviar(Send) Email", 301, 22, 229, 110, 14
 PUSHBUTTON "Enviar Email &Automático", 303, 135, 229, 110, 14
 PUSHBUTTON "&Saida", 302, 248, 229, 50, 14
 PUSHBUTTON "A&nexar", 304, 108, 166, 50, 14
 PUSHBUTTON "E&xcluir", 305, 161, 166, 50, 14
 LISTBOX 101, 0, 182, 318, 50, LBS_STANDARD
 EDITTEXT 26, 0, 153, 318, 12, ES_MULTILINE | ES_WANTRETURN | NOT WS_TABSTOP | WS_BORDER | WS_HSCROLL | WS_GROUP
 RTEXT "De...:", 401, 7, 1, 50, 12, SS_RIGHT | NOT WS_GROUP
 RTEXT "Para...:", 402, 7, 14, 50, 12, SS_RIGHT | NOT WS_GROUP
 RTEXT "Cc...:", 403, 7, 27, 50, 12, SS_RIGHT | NOT WS_GROUP
 RTEXT "Cco...:", 404, 7, 40, 50, 12, SS_RIGHT | NOT WS_GROUP
 RTEXT "Assunto...:", 405, 7, 53, 50, 12, SS_RIGHT | NOT WS_GROUP
 LTEXT "Anexo(s):", 406, 18, 139, 50, 12, NOT WS_GROUP
 LTEXT "<ESC> Sair", 408, 268, 139, 50, 12, NOT WS_GROUP
 LTEXT "Arquivos *.PDF em: C:\\NFEPDF.", 410, 3, 249, 200, 12, NOT WS_GROUP
 CONTROL "TBitMap", 120, "TBitMap", WS_CHILD | WS_VISIBLE, 297, 14, 20, 12
 CONTROL "TBitMap", 121, "TBitMap", WS_CHILD | WS_VISIBLE, 297, 27, 20, 12
 CONTROL "TBitMap", 122, "TBitMap", WS_CHILD | WS_VISIBLE, 297, 40, 20, 12
 CONTROL "TBitMap", 125, "TBitMap", WS_CHILD | WS_VISIBLE, 247, 244, 70, 34
 LTEXT "                      joao@pleno.com.br                      ", 412, 3, 274, 314, 12, NOT WS_GROUP
 LTEXT "Para Enviar Email Para Vários Contatos, Ex.:", 411, 3, 261, 229, 12, NOT WS_GROUP
 RTEXT "*.PDF em:", 407, 71, 139, 50, 12, SS_RIGHT | NOT WS_GROUP
 CONTROL "GET/TEXT", 27, "EDIT", ES_LEFT | ES_MULTILINE | WS_CHILD | WS_VISIBLE, 124, 139, 62, 12
 LTEXT "Arquivos Anexados:", 409, 3, 169, 103, 12, NOT WS_GROUP
 CONTROL "", 801, "TDSay", 0 | WS_CHILD | WS_VISIBLE, 0, 67, 321, 12
 CTEXT "<Click> Duplo na Listbox Acima, Mostra os Arquivos Anexados da NFe.", 413, 1, 216, 318, 12, SS_CENTER | NOT WS_GROUP
}
 

Saudações.

[karinha]

Armando, para facilitar minha vida e a do cliente, criei um configurador de email parecido com o do outlook express/windows live mail. cada cliente usa o provedor que achar melhor. Veja:



Saudações.