En Diseño
-----------------------------------------
AttachmentEncoding = MIME
BccList = (TIdEMailAddressList)
CharSet
CCList = (TIdEMailAddressList)
ContentType
Encoding = meMIME
ExtraHeaders = (TIdHeaderList)
From = (TIdEMailAddressItem)
NoDecode = False
NoEncode = False
Organitation
Priority = mPNormal
ReceiptRecipient = (TIdEMailAddressItem)
Recipients = (TIdEMailAddressList)
ReplyTo = (TIdEMailAddressList)
Sender = (TIdEMailAddressItem)
UseNowForDate = true
En Ejecución
---------------------------------------
MailMessage.Clear;
MailMessage.From.Address := mEmail;
MailMessage.From.Name := mNombre;
MailMessage.Recipients.EMailAddresses := DM.Query12EMAIL.Text; {destino}
MailMessage.BCCList.add.Address := mEmail;
MailMessage.Subject := Edit10.text;
MailMessage.Body.Text := Memo1.Text;
f FileExists(Edit2.Text) then
TIdAttachment.Create(MailMessage.MessageParts,Edit2.text);
Con Indy9 me funciona.
Saludos
|