Pregunta: Necesitas enviar/trabajar con GMAIL???, las respuestas seran enviadas a GMAIL?? o desde GMAIL???
Como sea, si necesitas por ahora enviar mails y luego adjuntos, revisa este codigo:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
smtp: TIdSMTP;
mail: TIdMessage;
begin
smtp := TIdSMTP.Create(Self);
mail := TIdMessage.Create(Self);
with smtp do
begin
Port := 587;
Host := 'smtp.gmail.com';
Username := 'tucorreo@gmail.com';
Password := '********';
end;
with mail do
begin
Recipients.Add;
Recipients[0].Name := 'Lucho de las Rosas';
Recipients[0].Address := 'correoqueresive@gmail.com'; From.Name := 'Juanito Perez de los Palotes';
From.Address := 'tumail@gmail.com';
Subject := 'Pruebas';
Body.Text := 'Pruebas 2';
end;
TIdAttachmentFile.Create(mail.MessageParts, 'C:\Pruebas.txt');
smtp.Connect;
try
try
smtp.Send(mail);
except
on E: Exception do
ShowMessage(E.Message);
end;
finally
if smtp.Connected then
smtp.Disconnect;
end;
mail.Free;
smtp.Free;
end;
Si no te sirve, u obligatoriamente deves trabajar con el codigo antes expuesto nos avisas, y veremos que podemos hacer, un abrazo... Byes!!!