4D Internet Commands v12.1

SMTP_Send

Página Inicial

 
4D Internet Commands v12.1
SMTP_Send

 

SMTP_Send 


 

SMTP_Send ( smtp_ID {; paramSessao} ) -> Resultado 
Parâmetro Tipo   Descrição
smtp_ID  Inteiro longo in Referencia da mensagem
paramSessao  Inteiro longo in 1 = Use SSL, 0 se omite = Não utilizar SSL
Resultado  Inteiro in Código de erro

O comando SMTP_Send envia a mensagem referenciada por smtp_ID mas não exclui os dados da memória.

smtp_ID é a referencia inteiro longo de um email criado com o comando SMTP_New.

O parâmetro opcional paramSessao permite ativar o protocolo SSL para a conexão:

  • Se passar 1, o envio da mensagem é realizado em SSL (modo síncrono),
  • Se passar 0 ou omite este parâmetro, a conexão é realizada em modo padrão, não seguro.

Exemplo  

Neste exemplo, é criada uma mensagem e se definem os elementos estáticos. Para cada registro da tabela [Pessoas], a mensagem é personalizada e é enviada.

 $error:=SMTP_New($smtp_id)
 $error:=SMTP_Host($smtp_id;"wkrp.com")
 $error:=SMTP_From($smtp_id;"herb_tarlick@wkrp.com")
 $error:=SMTP_ReplyTo($smtp_id;"bigguy@wkrp.com")
 $error:=SMTP_Subject($smtp_id;"¡Promoções em espaços publicitários!")
 FIRST RECORD([Personas])
 For($i;1;Records in selection([Pessoas]))
    If([Pessoas]Sales2Date>100000)
       $Body:=◊BigDiscText
    Else
       $Body:=◊SmlDiscText
    End if
    $Body:=Replace string($BoilerPlate;"<Salutation>";[Pessoas]Firstname)
    $error:=SMTP_To($smtp_id;[Pessoas]Email;1) `Substituir o cabeçalho "A" por um novo valor
    $error:=SMTP_Body($smtp_id;$Body)
    $error:=SMTP_Send($smtp_id)
    NEXT RECORD([Pessoas])
 End for
 $error:=SMTP_Clear($smtp_id)

 
PROPRIEDADES 

Produto: 4D Internet Commands
Tema: IC Send Mail
Número 88989

 
HISTÓRIA 

New
Criado por: 4D Internet Commands 6.5
Modificado: 4D Internet Commands v12.1

 
VER TAMBÉM 

SMTP_New