Results 1 to 6 of 6

Thread: Mails versturen via outlook OLE

  1. #1
    Senior Member
    Join Date
    Jan 2002
    Location
    Halen, Belgi?½
    Posts
    142

    Mails versturen via outlook OLE

    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

  2. #2
    Probleem met het openen van de .pst?
    Oorzaak kan van alles zijn.

    Ik neem aan dat zijn .pst niet in een gesharde map staat (zoals dropbox of iCloud of OneDrive e.d.)?

  3. #3
    Senior Member
    Join Date
    Jan 2002
    Location
    Halen, Belgi?½
    Posts
    142
    Intussen zijn er meer en meer gebruikers die me problemen melden. Volgens mij zit het probleem erin dat ze de applicatie als RemoteApp gebruiken. Om sommige momenten wordt er intensief gemaild vanuit de applicatie.
    Aangezien dit een RemoteApp is wordt outlook constant geopend, mail aangemaakt (eventueel verzonden) en weer afgesloten.

    Iemand ervaring met mailen vanuit een RemoteApp applicatie?

  4. #4
    wat is een remoteapp?

  5. #5
    Senior Member
    Join Date
    Jan 2002
    Location
    Halen, Belgi?½
    Posts
    142
    Een RemoteApp is een Applicatie die in Remote Desktop draait, maar zich gedraagt alsof de applicatie op je eigen toestel staat. Je krijgt dus geen Remote Desktop te zien, enkel je applicatie-scherm.
    Maar als je vanuit je remoteapp outlook aanspreekt, zal outlook op de Remote Desktop worden aangesproken, en niet outlook op je lokale toestel.

  6. #6
    Je had dit stukje code:
    Delphi Code:
    1. try
    2.   Outlook := GetActiveOleObject('Outlook.Application');
    3. except
    4.   Outlook := CreateOleObject('Outlook.Application');
    5. end;
    Je zou eens kunnen 'loggen' wanneer die GetActiveOleObject gebruikt wordt en wanneer die CreateOleObject.
    Misschien komt het probleem alleen voor als je succes hebt met GetActiveOleObject (in welk geval je altijd CreateOleObject zou kunnen gebruiken).

    Overigens gebruik ik hier altijd CreateOleObject.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •