Background does not appear in emails
Posted: Tue May 27, 2014 10:26 am
Hello Sergey,
When sending email with the Mime|Indy project (SendEmail.dpr) the background is not visible in my hotmail account.
To send the email I changed te following code:
if lvMyTest then
begin
lvIdSSQL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
lvIdSSQL.SSLOptions.SSLVersions := [sslvTLSv1];
lvIdSSQL.SSLOptions.Method := sslvTLSv1;
lvIdSMTP := TIdSMTP.Create(Self);
lvIdSMTP.IOHandler := lvIdSSQL;
lvIdSMTP.AuthType := satSASL;
lvIdSMTP.MailAgent := 'Demo HTML Mailer';
lvIdSMTP.UseTLS := utUseImplicitTLS;
lvIdSMTP.Host := txtHost.Text;
lvIdSMTP.Port := StrToIntDef(txtPort.Text, 25);
lvIdUserPassProvider := TIdUserPassProvider.Create(lvIdSMTP);
lvIdUserPassProvider.Username := txtUserID.Text;
lvIdUserPassProvider.Password := txtPassword.Text;
lvIdSASLLogin := TIdSASLLogin.Create(lvIdSMTP);
lvIdSASLLogin.UserPassProvider := lvIdUserPassProvider;
lvIdSMTP.SASLMechanisms.Add.SASL := lvIdSASLLogin;
lvIdSMTP.Connect;
try
lvIdSMTP.Send(IdMessage1);
finally
if lvIdSMTP.Connected
then lvIdSMTP.Disconnect;
end;
end
else
begin
IdSMTP1.MailAgent := 'Demo HTML Mailer';
IdSMTP1.Host := txtHost.Text;
IdSMTP1.Port := StrToIntDef(txtPort.Text, 25);
IdSMTP1.Username := txtUserID.Text;
IdSMTP1.Password := txtPassword.Text;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
end;
Do you have any idea what I do wrong?
Thx already...
When sending email with the Mime|Indy project (SendEmail.dpr) the background is not visible in my hotmail account.
To send the email I changed te following code:
if lvMyTest then
begin
lvIdSSQL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
lvIdSSQL.SSLOptions.SSLVersions := [sslvTLSv1];
lvIdSSQL.SSLOptions.Method := sslvTLSv1;
lvIdSMTP := TIdSMTP.Create(Self);
lvIdSMTP.IOHandler := lvIdSSQL;
lvIdSMTP.AuthType := satSASL;
lvIdSMTP.MailAgent := 'Demo HTML Mailer';
lvIdSMTP.UseTLS := utUseImplicitTLS;
lvIdSMTP.Host := txtHost.Text;
lvIdSMTP.Port := StrToIntDef(txtPort.Text, 25);
lvIdUserPassProvider := TIdUserPassProvider.Create(lvIdSMTP);
lvIdUserPassProvider.Username := txtUserID.Text;
lvIdUserPassProvider.Password := txtPassword.Text;
lvIdSASLLogin := TIdSASLLogin.Create(lvIdSMTP);
lvIdSASLLogin.UserPassProvider := lvIdUserPassProvider;
lvIdSMTP.SASLMechanisms.Add.SASL := lvIdSASLLogin;
lvIdSMTP.Connect;
try
lvIdSMTP.Send(IdMessage1);
finally
if lvIdSMTP.Connected
then lvIdSMTP.Disconnect;
end;
end
else
begin
IdSMTP1.MailAgent := 'Demo HTML Mailer';
IdSMTP1.Host := txtHost.Text;
IdSMTP1.Port := StrToIntDef(txtPort.Text, 25);
IdSMTP1.Username := txtUserID.Text;
IdSMTP1.Password := txtPassword.Text;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
end;
Do you have any idea what I do wrong?
Thx already...