Fórum Enviar e-mail em html c/ imagens anexo - componete Indy #205060
08/01/2004
0
Estou fazendo uma programa de envio de e-mail !!
Usando o Delphi 6 e os componentes Indy, no corpo do e-mail coloco o código html e quando envio sai a pagina web mas quero colocar figuras como anexo no e-mail ! como faço para enviar as figuras ? se mando anexo o código aparece e não a pagina web !
desde de ja agradeço !!
Fernanda
Usando o Delphi 6 e os componentes Indy, no corpo do e-mail coloco o código html e quando envio sai a pagina web mas quero colocar figuras como anexo no e-mail ! como faço para enviar as figuras ? se mando anexo o código aparece e não a pagina web !
desde de ja agradeço !!
Fernanda
Ferreirafs
Curtir tópico
+ 0
Responder
Posts
08/01/2004
Eag
Tente da seguinte forma
Text:= TIdText.Create(Message.MessageParts);
Text.Body.LoadFromFile(´nomedoarquvio.htm´);
Mime:= TIdMimeTable.Create(True);
Text.ContentType:= Mime.GetFileMIMEType(´nomedoarquivo.htm´);
Text:= TIdText.Create(Message.MessageParts);
Text.ContentType:= ´text/plain´;
TIdAttachment.Create(Message.MessageParts, nome da imagem);
Message.MessageParts.Items[Pred(Message.MessageParts.Count)].ExtraHeaders.Values[´Content-ID´]:= nome da imagem);
Espero ter ajudado.
Text:= TIdText.Create(Message.MessageParts);
Text.Body.LoadFromFile(´nomedoarquvio.htm´);
Mime:= TIdMimeTable.Create(True);
Text.ContentType:= Mime.GetFileMIMEType(´nomedoarquivo.htm´);
Text:= TIdText.Create(Message.MessageParts);
Text.ContentType:= ´text/plain´;
TIdAttachment.Create(Message.MessageParts, nome da imagem);
Message.MessageParts.Items[Pred(Message.MessageParts.Count)].ExtraHeaders.Values[´Content-ID´]:= nome da imagem);
Espero ter ajudado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)