Bom dia pessoal, estou tentando realizar o envio de e-mail através do ACBrMail.
Segue o código fonte:
procedure TFrmMensagens.BitBtn1Click(Sender: TObject);
var
Anexos:TIdAttachmentFile;
i, posicao:integer;
s, email:string;
begin
with ACBrMail1 do
begin
Clear;
Subject := MEN_ASSUNTO.Text;
FromName := FrmPrincipal.QryConfigCONF_FANTASIA.AsString;
//IdMessage1.Body.Add(MEN_MENSAGEM.Text);
S:=Edit1.Text;
while (S <> '') do
begin
posicao:=pos(';', s);
if posicao > 0 Then
begin
email:=copy(s, 1, posicao-1);
s:=copy(s, posicao+1, length(s)-posicao);
if s = ';' then
s:='';
end
else
begin
email:=s;
s:='';
End;
AddAddress(email,'');
End;
For i:=0 to ListBox1.items.count-1 do
if fileexists(Listbox1.Items.Strings) then
AddAttachment(Listbox1.Items.Strings);
//AddAttachment(Listbox1.Items.Strings, Listbox1.Items.Strings);
IsHTML := False;
AltBody.Assign(MEN_MENSAGEM.Lines);
try
Send();
except on E:Exception do
begin
ShowMessage('Erro ao enviar email: '+E.Message);
Abort;
end;
end;
end;
Close;
end;
Não está dando nenhum erro, apenas não envia o e-mail. Testei realizar o envio para alguns e-mails diferente e não deu certo. Extrai as dlls do openssl na pasta do sistema também.