Hallo,
zum ersten Mal brauche ich hier Hilfe.
Nach dem Umstieg von WindowsXP, Delphi5 und Indy 9
auf Vista, Delphi2009 und Indy 10 werden in der eMail keine
Umlaute angezeigt. Aus ü wird | und aus ß wird _ .
Wer weiss rat
Hier der Quelltext:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
IdMsgSend: TidMessage;
SMTP: TidSmtp;
i : Integer;
begin
// Message
IdMsgSend := TidMessage.Create(nil);
IdMsgSend.Clear;
IdMsgSend.CharSet := 'iso-8859-1';
IdMsgSend.ContentType := 'multipart/Related'; // weil mit Text und Anhang
// Absender der Mail (die meisten Provider nehmen die Mail nur an,
// wenn tatsächlich die registrierte Mailadresse als Absender drin steht)
IdMsgSend.From.Text := '[email protected]';
IdMsgSend.Sender.Text:= 'irgendein Name'; // SenderText
IdMsgSend.Recipients.EMailAddresses := '[email protected]'; // Empfänger
IdMsgSend.ReceiptRecipient.Text := ''; // keine Empfangsbestätigung
IdMsgSend.ReplyTo.EMailAddresses := '[email protected]';
IdMsgSend.Subject := 'Betreff';
IdMsgSend.Priority := mpNormal;
// Messageparts nur Text (kein html)
with TIdText.Create(IdMsgSend.MessageParts, nil) do
begin
ContentType := 'text/plain';
Body.Text := 'Düsseldorf Grüßen';
end;
TIdAttachmentFile.Create(IdMsgSend.MessageParts,'C :\IndyTest\Indy.txt');
IdMsgSend.MessageParts.Add(); // Parts zu Message hinzufügen
// SMTP
SMTP := TidSmtp.Create(nil);
SMTP.AuthType := satDefault;
SMTP.Username := 'asdf'; // intern, deswegen keine Anmeldung
SMTP.Password := 'asde';
SMTP.Host := '12.1.1.1';
SMTP.Port := 25;
try
SMTP.Connect;
try
SMTP.Send(IdMsgSend); // Message senden
finally
SMTP.Disconnect;
end;
except
end;
IdMsgSend.free;
SMTP.free;
end;
zum ersten Mal brauche ich hier Hilfe.
Nach dem Umstieg von WindowsXP, Delphi5 und Indy 9
auf Vista, Delphi2009 und Indy 10 werden in der eMail keine
Umlaute angezeigt. Aus ü wird | und aus ß wird _ .
Wer weiss rat
Hier der Quelltext:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
IdMsgSend: TidMessage;
SMTP: TidSmtp;
i : Integer;
begin
// Message
IdMsgSend := TidMessage.Create(nil);
IdMsgSend.Clear;
IdMsgSend.CharSet := 'iso-8859-1';
IdMsgSend.ContentType := 'multipart/Related'; // weil mit Text und Anhang
// Absender der Mail (die meisten Provider nehmen die Mail nur an,
// wenn tatsächlich die registrierte Mailadresse als Absender drin steht)
IdMsgSend.From.Text := '[email protected]';
IdMsgSend.Sender.Text:= 'irgendein Name'; // SenderText
IdMsgSend.Recipients.EMailAddresses := '[email protected]'; // Empfänger
IdMsgSend.ReceiptRecipient.Text := ''; // keine Empfangsbestätigung
IdMsgSend.ReplyTo.EMailAddresses := '[email protected]';
IdMsgSend.Subject := 'Betreff';
IdMsgSend.Priority := mpNormal;
// Messageparts nur Text (kein html)
with TIdText.Create(IdMsgSend.MessageParts, nil) do
begin
ContentType := 'text/plain';
Body.Text := 'Düsseldorf Grüßen';
end;
TIdAttachmentFile.Create(IdMsgSend.MessageParts,'C :\IndyTest\Indy.txt');
IdMsgSend.MessageParts.Add(); // Parts zu Message hinzufügen
// SMTP
SMTP := TidSmtp.Create(nil);
SMTP.AuthType := satDefault;
SMTP.Username := 'asdf'; // intern, deswegen keine Anmeldung
SMTP.Password := 'asde';
SMTP.Host := '12.1.1.1';
SMTP.Port := 25;
try
SMTP.Connect;
try
SMTP.Send(IdMsgSend); // Message senden
finally
SMTP.Disconnect;
end;
except
end;
IdMsgSend.free;
SMTP.free;
end;
Comment