Vê este link com fontes de como enviar email com anexo: // -------------------------------------------------------
http://www.devmedia.com.br/articles/viewcomp.asp?comp=13966&hl=*email*%20and%20*com*%20and%20*anexo* // ------------------------------------------------- Fernando Pires de Souza Filho escreveu: > > > > opa gente > > depois de pesquisar e nao achar muita coisa, e alem de estar comecando > a programar em delphi, > to com um problema em enviar email com anexo, sem o anexo ta enviando > normal. > > ai as linhas que anexa: > > IdMessage.MessageParts.Clear; > IdAttach := TIdAttachment.Create(IdMessage.MessageParts); > IdAttach.FileName := ListBoxAnexos.Items.Text; > > dai passa, mais no Idsmtp.send(idmessage) da esse erro: > > Raised exception EAbstractError: "Abstract Error" > > quando compila, da os seguintes warnings: > > [DCC Warning] email.pas(113): W1020 Constructing instance of > 'TIdAttachment' containing abstract method 'TIdAttachment.OpenLoadStream' > [DCC Warning] email.pas(113): W1020 Constructing instance of > 'TIdAttachment' containing abstract method 'TIdAttachment.CloseLoadStream' > [DCC Warning] email.pas(113): W1020 Constructing instance of > 'TIdAttachment' containing abstract method > 'TIdAttachment.PrepareTempStream' > > acho que tem algo a ver :p > > eu nao sei que erro é esse. > > Se alguem poder da uma luz, agradeceria muito, e resolveria meu > problema!!! > > Atenciosamente > Fernando Pires > > . > >