SMTP_MessageID

4D v19

SMTP_MessageID


SMTP_MessageID ( smtp_ID ; mensagem_ID {; opcao} ) -> Resultado

Parâmetro	Tipo	Descrição
smtp_ID	Inteiro longo	Referência da mensagem
mensagem_ID	Texto	Identificação única da mensagem
opcao	Inteiro	0 = Adicionar (pré determinado), 1 = Substituir, 2 = Suprimir
Resultado	Inteiro	Código de erro

Descrição

O comando SMTP_MessageID adiciona um campo "mensagem-ID " no cabeçalho da mensagem cuja referência se passa em smtp_ID. Este identificador único se utiliza em particular nos foros ou listas de correio públicas. Em geral, os servidores de correio adicionam automaticamente este cabeçalho as mensagens que enviam. Pode utilizar este comando para definir seu conteúdo.

smtp_ID contém o ID de uma mensagem de correio eletrônico criado com o comando SMTP_New.

Em mensagem_ID, passe o identificador a associar a mensagem. Os conteúdos a passar são normalmente sem restrições, no entanto por convenção, geralmente são da forma "letrasOuNúmeros@domínio", por exemplo "abcdef.123456@4d.com". Tenha em conta que alguns servidores de correio eletrônico (como Gmail) não reconhecem os cabeçalhos "message-id" personalizados e são substituídos quando não estão nesta forma.

O parâmetro opcao lhe permite especificar se conservar ou excluir o cabeçalho mensagem_ID existente:

Se passar 0 (valor por padrão se o parâmetro se omite), é adicionado o conteúdo do parâmetro passado ao conteúdo existente.
Se passar 1, o conteúdo do parâmetro passado substitui o conteúdo existente.
Se passar 2, os conteúdos existentes se excluem da mensagem.

Exemplo

Neste exemplo, uma mensagem com um cabeçalho "message-id" específico se envia para cada registro da tabela [Admin]:

 $error:=SMTP_New($smtp_id)

 $error:=SMTP_Host($smtp_id;"infoserv.com")

 $error:=SMTP_From($smtp_id;"info@infoserv.com")

 $error:=SMTP_Subject($smtp_id;"General statistics")

 FIRST RECORD([Admin])

 For($i;1;Records in selection([Admin]))

    $error:=SMTP_Body($smtp_id;$Stats)

    $error:=SMTP_To($smtp_id;[Admin]Email;1) // Substitui o cabeçalho "A" por um novo valor

    $error:=SMTP_MessageID($smtp_id;[Admin]ID+"@infoserv.com";1) // Uso do ID do admin

    $error:=SMTP_Send($smtp_id)

    NEXT RECORD([Admin])

 End for

 $error:=SMTP_Clear($smtp_id)