Red de conocimiento informático - Material del sitio web - ¿Cómo enviar [correo electrónico con archivo adjunto] usando Delphi7?

¿Cómo enviar [correo electrónico con archivo adjunto] usando Delphi7?

Enviar utiliza principalmente dos controles: TIdMessage y TIdSMTP

Definición:

mensaje de correo: mensaje tid;

Correo: TIdSMTP

Ejemplo de implementación :

Programa TForm1. Botón1Hacer clic(remitente:al objeto);

Iniciar

Si es correo. Conéctese y luego envíe un correo electrónico. Desconectar;

Correo. Nombre de usuario:=""; //Nombre de usuario del remitente

Correo. Contraseña:=""; //Contraseña del remitente

Correo. host:=""; //Dirección SMTP Esta dirección debe configurarse correctamente.

Correo. puerto := 25; //Puerto

Correo. AuthenticationType:= al iniciar sesión;

Mensaje de correo. Asunto := 'Título de la prueba'; //Título

Mensaje de correo electrónico. Body.Text := 'Contenido de prueba'; //Contenido

Mensaje de correo. from . Name:=""; //Nombre del remitente

Mensaje de correo. remitente. Dirección:=""; //Dirección del remitente

Mensaje de correo electrónico. responder a . direcciones de correo electrónico:=""; //Dirección del remitente

Mensaje de correo electrónico. Prioridad:= TIdMessagePriority(1); //Tipo de autenticación

tid adjunto. create(mensaje de correo. partes del mensaje, 'c:\documents and settings\administrator\desktop\mail.txt'); Dirección del archivo adjunto

Mensaje de correo electrónico. beneficiario. direcciones de correo electrónico:=""; //Dirección del destinatario

Mensaje de correo electrónico. remitente. dirección:=""; //Dirección del remitente

Pruebe

correo. Conexión;

Correo. Autenticación;

Correo. Enviar (mensaje de correo electrónico);

Último

correo electrónico. Desconectar;

Fin;

Fin;

Pregúntame si no entiendes.