Placere fil i mail-systems udbakke?

kigger lige med

Det er ikke så svært når bare man ved hvordan :-)

Prøv det her :

uses
  MAPI;

function SendMailMAPI(const Subject, Body, FileName, SenderName, SenderEMail, RecepientName, RecepientEMail: String) : Integer;
var
  message: TMapiMessage;
  lpSender,
  lpRecepient: TMapiRecipDesc;
  FileAttach: TMapiFileDesc;
  SM: TFNMapiSendMail;
  MAPIModule: HModule;
begin
  FillChar(message, SizeOf(message), 0);

  with message do
  begin
    if (Subject<>\'\') then
      lpszSubject := PChar(Subject);

    if (Body<>\'\') then
      lpszNoteText := PChar(Body);

    if (SenderEMail<>\'\') then
    begin
      lpSender.ulRecipClass := MAPI_ORIG;

      if (SenderName=\'\') then
        lpSender.lpszName := PChar(SenderEMail)
      else
        lpSender.lpszName := PChar(SenderName);

      lpSender.lpszAddress := PChar(SenderEMail);
      lpSender.ulReserved := 0;
      lpSender.ulEIDSize := 0;
      lpSender.lpEntryID := nil;
      lpOriginator := @lpSender;
    end;

    if (RecepientEMail<>\'\') then
    begin
      lpRecepient.ulRecipClass := MAPI_TO;
      if (RecepientName=\'\') then
        lpRecepient.lpszName := PChar(RecepientEMail)
      else
        lpRecepient.lpszName := PChar(RecepientName);

      lpRecepient.lpszAddress := PChar(RecepientEMail);
      lpRecepient.ulReserved := 0;
      lpRecepient.ulEIDSize := 0;
      lpRecepient.lpEntryID := nil;
      nRecipCount := 1;
      lpRecips := @lpRecepient;
    end
    else
      lpRecips := nil;

    if (FileName=\'\') then
    begin
      nFileCount := 0;
      lpFiles := nil;
    end
    else
    begin
      FillChar(FileAttach, SizeOf(FileAttach), 0);
      FileAttach.nPosition := Cardinal($FFFFFFFF);
      FileAttach.lpszPathName := PChar(FileName);
      nFileCount := 1;
      lpFiles := @FileAttach;
    end;
  end;

  MAPIModule := LoadLibrary(PChar(MAPIDLL));

  if MAPIModule=0 then
    Result := -1
  else
  begin
    try
      @SM := GetProcAddress(MAPIModule, \'MAPISendMail\');
      if @SM<>nil then
        Result := SM(0, Application.Handle, message, MAPI_DIALOG or MAPI_LOGON_UI, 0)
      else
        Result := 1
    finally
      FreeLibrary(MAPIModule);
    end;
  end;

  if not Result in [0,1] then
    MessageDlg(\'Error sending mail (\'+IntToStr(Result)+\').\', mtError, [mbOk],  0)
end;

Jens B

Jens>

Og hvis nu det ikke er en fil men en Memobox
med en text som skal sendes, hvad gør man så ?

  SendMailMAPI(\'Du er en hest\', Memo1.Lines.GetText,\'\',\'Hest Hansen\', \'Hest@hest.hest\', \'Pru Hest\', \'Pru@Hest.hest\');


Jens B

Hej Jens
Tak for svaret, men det er nu ikke helt det vi vil. MAPI har jo den funktion at den starter mailklienten hvis ikke den er startet, og opretter en meddelelse i den og det virker fint. MEN:

Vi ønsker kun at placere meddelelsen det sted, der svarer til at man i Outlook opretter en meddelelse og trykker send mens man er Offline. Meddelelsen ligger så i \'Udbakke\' indtil brugeren log\'er på og trykker Send/modtag.

Ja jeg så også helst at man slap for at skulle trykke på send knappen, og hvis man kunne
ville det være perfekt, kan det lade sig gøre Jens +


Jeg har selv forsøgt mig med nedenstående kode, det bygger på NMSMTP komponenten
under fastnet i D6

NMSMTP1.Host := \'Din udgående mail server\';
  if not NMSMTP1.Connected then
    NMSMTP1.Connect;
//SendingMail := true;
  if NMSMTP1.Connected then
  begin

    NMSMTP1.ClearParameters;
    NMSMTP1.PostMessage.Body.Clear;
    // text string of senders email address
    NMSMTP1.PostMessage.FromAddress := \'Din mail adr\';
    NMSMTP1.PostMessage.FromName := \'Falco Control\';  // name of sender
    NMSMTP1.PostMessage.Subject := \'Alarm !\';  // subject text
    NMSMTP1.PostMessage.Body.AddStrings(MessageMemo.Lines);
    NMSMTP1.SendMail;
    ShowMessage(\'message sent: \');
    end
    else
      ShowMessage(\'fail to connect\');
    NMSMTP1.Disconnect;

jeg har det kørende i en løkke hvor jeg sender SMS ud når jeg modtager alarmer i en DB
men det går ned ind imellem, jeg ved det også kan laves med indy komponenterne

koden har jeg fundet her:

http://delphi.about.com/gi/dynamic/offsite.htm?site=http%3A%2F%2Fcommunity.borland.com%2Farticle%2F0%2C1410%2C10190%2C00.html

erve >> Du skal forske i MAPI. Et eller andet sted mede i MAPI.pas ligger svaret .....

Jens B

?

Lukkes. Det kan vist tilsyneladende ikke lade sig gøre.