Hola : antes que nada gracias por su tiempo, necesito si alguien tiene un ejemplo de Enviar una Imagen incrustada ( osea el mail en formato html) a través del Ms Outlook .
Uso Delphi 7 y no me sirve mandar los mails por Indy porque se demoran mucho y me pidieron que ponga los mails en la bandeja de salida del Ms Outlook .
La Manera en que mando Mails en texto plano es la Siguiente
Código Delphi
[-]
Function tfppal.EnviarCorreo(const Titulo, Mensaje, NombreArchivo, NombreArchivoCompleto, CorreoDestino, CorreoAlterno: String; AutoEnvio: Boolean): Boolean;
var
Outlook: _Application;
AFolder : MAPIFolder;
ANameSpace : _NameSpace;
AMailItem : _MailItem;
AAttachments : Attachments;
AppWasRunning: boolean; lcid: integer; Unknown: IUnknown;
Resultado: HResult;
begin
lcid := LOCALE_USER_DEFAULT;
Outlook := CoOutlookApplication.Create;
ANameSpace := Outlook.Get_Session;
AFolder := ANameSpace.GetDefaultFolder(olFolderInbox);
AMailItem := (Outlook.CreateItem(olMailItem) as MailItem);
AMailItem.To_ := CorreoDestino;
AMailItem.BCC := CorreoAlterno;
AMailItem.Subject := Titulo;
AMailItem.Body := Mensaje;
AAttachments := AMailItem.Get_Attachments;
if (Length(NombreArchivoCompleto) > 0) then begin
AAttachments.Add(NombreArchivoCompleto,$00000001 ,
Length(Mensaje)+1,NombreArchivo);
end;
AMailItem.Save;
If AutoEnvio then begin
Try
AMailItem.Send;
Result := True;
except on E:EExternal do begin
Result := False;
end;
end;
end else begin
try
AMailItem.Display(0);
Result := True;
except on E:EExternal do begin
Result := False;
Raise;
end;
end;
end;
end;