Using Delphi7 studio enterprise I am using COM automation to send emails via Outlook. When I use SMTP it is fine, but the embedded images in Outlook also appear as attachments which is untidy.
I have viewed the accepted solution for Q_21929137 and tried it but cannot get the variants fields to work.
Happy to provide code snippets and HTML source of emails, but the attaching of the signature images is as follows:
for j := 0 to sl1.Count - 1 do
strSourceFileName := sl1[j];
strDisplayName := ExtractFileName(sl1[j]);
// OlAttachmentType can be one of these OlAttachmentType constants.
// olByReference = 4
// olByValue = 1
// olEmbeddeditem = 5
// olOLE = 6
intAttachType := 1;
intPosition := 1;
oMailItem.MailItem.Attachments.Add(strSourceFileName, intAttachType, intPosition, strDisplayName);