Je dois intégrer des images dans un e-mail et prévisualiser l'e-mail avant de l'envoyer dans Outlook. CDO et Redemption n'est pas une option.Intégrer l'image à Outlook en utilisant des fonctions mapi étendues
J'ai essayé le code suivant, mais les images apparaissent simplement comme un petit bloc.
procedure AddAttachment(FullFileName: String; Attachments: Outlook2000.Attachments; CID: String);
const
PR_ATTACH_CONTENT_ID = $3712001E;
PR_ATTACH_CONTENT_ID_W = $3712001F; // Unicode
PR_ATTACH_MIME_TAG = $370E001E;
PR_ATTACH_ENCODING = $37020102;
var
IAttach: IMAPIProp;
Prop: PSPropValue;
AAttachment: Outlook2000.Attachment;
FileName: String;
PropValue: TSPropValue;
Prop1: TSPropTagArray;
begin
FileName := ExtractFileName(FullFileName);
Prop := nil;
try
AAttachment := Attachments.Add(FullFileName, olByValue, 1, FileName);
IAttach := AAttachment.MAPIOBJECT as IMAPIProp;
if Assigned(IAttach) then
try
PropValue.ulPropTag := PR_ATTACH_MIME_TAG;
PropValue.Value.lpszA := 'image/jpeg';
HrSetOneProp(IAttach, @PropValue);
PropValue.ulPropTag := PR_ATTACH_CONTENT_ID;
PropValue.Value.lpszA := PAnsiChar(AnsiString(CID));
HrSetOneProp(IAttach, @PropValue);
finally
if Assigned(Prop) then MAPIFreeBuffer(Prop);
IAttach := nil;
end;
except
end;
end;
Utilisez-vous le format HTML? Utilisez-vous une URL CID pour l'image incorporée? – Ben
@Ben Devrait-il utiliser le format HTML? Existe-t-il une solution impliquant une URL CID? Je suis sûr qu'il utilisera tout ce que votre réponse donne - tant que vous utilisez MAPI et cela fonctionne lorsque le client de messagerie de l'utilisateur est Outlook. –
@IanBoyd, je suppose qu'il ** est ** en utilisant une URL CID * maintenant il sait à leur sujet * ... – Ben