Hoi,
In mijn applicatie worden mails verstuurd via volgende procedure:
Code:
procedure TOPForm.DisplayMail(Address, CC, Subject, Body: string; files: TStrings);
var
i : Integer;
Outlook,nmspace: OleVariant;
Mail: Variant;
const
olMailItem = $00000000;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
Mail := Outlook.CreateItem(olMailItem);
Mail.To := Address;
Mail.CC := CC;
Mail.Subject := Subject;
Mail.Body := Body;
if files <> nil then
if (files.Count > 0) then
begin
for i := 0 to files.Count-1 do
begin
Mail.Attachments.Add(files[i]);
Mail.save;
end;
end;
// if OutlookBG then
// Mail.Send
// else
Mail.Display;
nmspace := unassigned;
Mail := unassigned;
Outlook := unassigned;
end;
Bij iedereen loopt dit goed, enkel bij één persoon niet. Als hij verschillende mails na elkaar verstuurt krijgt hij op een bepaald moment de melding:
"Kan het email bericht niet maken omdat een gegevensbestand voor het verzenden en ontvangen van berichten niet is gevonden. Controleer de instellingen in de Microsoft Outlook-profiel. ....."
Heeft iemand hier ook al problemen mee gehad en dit kunnen oplossen?
Thanks.
Wim
Bookmarks