Sende HTML mail via INDY
Hej, jeg har lidt svært ved at få idSMTP til at fungere korrekt via delphi 7. Til denne handling bruger jeg en TidMessage og en TidSMTP**********************************
procedure TForm1.Button5Click(Sender: TObject);
var
IdAttach: TIdAttachment;
IdText1: TIdText;
IdText2: TIdText;
i:Smallint;
tmp:TIdMessagePart;
begin
MyMessage.From.Address := 'displayaddy@domain.com';
MyMessage.Recipients.EMailAddresses := 'someperson@gmail.com';
MyMessage.Subject := 'test2';
MyMessage.Sender.Address := 'sendermail@domain.com';
MyMessage.ContentType := 'multipart/mixed';
MyMessage.Body.Add('<html><b>test</b></html>');
IdText1 := TIdText.Create(MyMessage.MessageParts, MyMessage.Body);
IdText1.ContentType := 'text/html';
IdText2 := TIdText.Create(MyMessage.MessageParts);
IdText2.ContentType := 'text/plain';
IdText2.Body.Text := '';
IdAttach := TIdAttachment.Create(MyMessage.MessageParts,'c:\logo.gif');
IdAttach.ContentType := 'image/jpg';
IdAttach.ContentDisposition := 'inline';
IdAttach.ExtraHeaders.Values['content-id'] := 'tms.jpg';
IdAttach.DisplayName := 'tms.jpg';
try
try
IdSMTP1.Connect;
begin
IdSMTP1.Send(MyMessage);
end;
Showmessage('Email Sent');
except
on E:Exception do
ShowMessage('Failed to send Email!'+#13#10+e.message);
end;
finally
if IdSMTP1.Connected then
IdSMTP1.Disconnect;
end;
end;
**********************************
Denne handling tager et billede fra c:\logo.gif og sender det helt korrekt, men på min gmailkonto dukker kun billedet op men ikke teksten og min almindelige pop3 konto kommer både billede og test.
Hvorfor gider gmail ikke vise teksten?
