mail + attachment

Martin_Förster

Hallo,

I still have a Problem and I don't know what i can do.

I want to send a html File with Navision but not as Attachment....
I try to send it as mail..the html-file has to be the mail-body.

Is there anybody who can solve my Problem???

Here are the CODE:

MAPISession.DownLoadMail := FALSE;
IF MAPISession.SessionID = 0 THEN
MAPISession.SignOn;
MAPIMitteilungen.SessionID := MAPISession.SessionID;

MAPIMitteilungen.Compose;

IF ZuName <> '' THEN BEGIN
MAPIMitteilungen.RecipIndex := MAPIMitteilungen.RecipCount;
MAPIMitteilungen.RecipType := 1;
MAPIMitteilungen.RecipDisplayName := ZuName;
END;

IF CCName <> '' THEN BEGIN
MAPIMitteilungen.RecipIndex := MAPIMitteilungen.RecipCount;
MAPIMitteilungen.RecipType := 2;
MAPIMitteilungen.RecipDisplayName := CCName;
END;

MAPIMitteilungen.MsgSubject := Subjekt;

IF DateiNameAnhängen = '' THEN
MAPIMitteilungen.MsgNoteText := Body
ELSE BEGIN
MAPIMitteilungen.MsgNoteText := Body + ' ';
// MAPIMitteilungen.MsgNoteText := Body;
MAPIMitteilungen.AttachmentIndex := MAPIMitteilungen.AttachmentCount;
MAPIMitteilungen.AttachmentType := 0;
MAPIMitteilungen.AttachmentPathName := DateiNameAnhängen;
MAPIMitteilungen.AttachmentPosition(STRLEN(Body));
END;

IF (ZuName <> '') OR (CCName <> '') THEN BEGIN
MAPIMitteilungen.AddressResolveUI(AusblendenDialog);
MAPIMitteilungen.ResolveName;
END;

IF ÖffneDialog THEN
MAPIMitteilungen.Action(2) // SendeDialog
ELSE
MAPIMitteilungen.Action(3); // Senden

and I call the function with normal parameters like this:

newmessage(mail-adress,'',subject,body,attachment,false);

THANKS for trying!!!