¿Cómo enviar [correo electrónico con archivo adjunto] usando Delphi7?
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.