Datei mit LotusNotes aus Delphi Programm versenden

[Piro]

Moin zusammen,

ich habe diesen Eintrag in der CodeLibrary gefunden, welcher mir sehr nützlich sein könnte.
http://www.delphipraxis.net/40655-da...versenden.html

Ich möchte gerne aus meinem Program den Standard Mail Client des Benutzers (in meinem Fall immer LotusNotes) verwenden, um eine Datei an 2 Emailadressen zu versenden.

Leider geht er bei mir nicht. Die Fehlermeldung der Funktion lautet:

Zitat:

The user canceled one of the dialog boxes!

Ich rufe nur die Funktion auf und das war es. Mein Code ist der gleich, wie aus der CodeLibrary. Natürlich ist der Pfad zur Datei angepasst . Woran könnte das liegen? Ich hoffe, einer von Euch kennt das Problem.

Gruß und vielen Dank im Voraus.
Sven

[p80286]

Ich denke es wäre hilfreich Deine sourcen zu sehen.
Und welche Dll nutzt Du?

Da gibt es teilweise eine recht wilde Versionitis.

Gruß
K-H

[Bernhard Geyer]

MAPI mit einem Mailprogramm != Outlook ist 'ne Glückssache (auch bei Outlook ist die Erfolgswahrscheinlichkeit < 100%)
Bei Lotus kommt noch dazu das nicht jede Lotus-Version eine funktionierende MAPI-Schnittstelle mitbringt.

[Der.Kaktus]

Hallo,
es gibt ein "Uralttool" Lnhelp..mit dem auch das NotesMail "nNotify" (in Delphi)..geschrieben wurde (nehme ich immer noch). Ist zwar schon paar Jahre alt..geht aber sogar noch in Notes 8. Des weiteren hier im Forum http://www.delphipraxis.net/101337-e...rschicken.html Hier die Adresse der Quellen http://reocities.com/siliconvalley/p...phi_stuff.html

[Piro]

@Alle: Mein Code ist genau, der gleiche aus dem Link, den ich beigefügt hatte. Ich habe da nichts verändert. Ich verwende auch keine dll. Nur den Code aus der CodeLibrary.

@Der.Kaktus: Kannst du mir da vielleicht mal ein Beispiel zur Verfügung stellen? Wäre echt cool.

Danke im Voraus.
Sven

[Der.Kaktus]

Das Beispiel iss nnotify..es gibt mit der Zeit zwar viele neuere Versionen..aber den Quellcode habch nur von der alten gefunden. In dem Programm kannste Mailanhaenge versenden..musst nur noch ne Notes-Dll ins Verzeichnis schieben..bzw. Dein Progi ins Notesverzeichnis..Viel Glueck!

[Piro]

So, nach einigen Anläufen und unterschiedlichen Versionen, läuft es jetzt.
Hier mein Code, für die, die es interessiert oder auch das Problem haben wie ich.

Delphi-Quellcode:

function SendMailMAPI(const Subject, Body, FileName, SenderName, SenderEMail,
                  RecepientName, RecepientEMail: String) : Integer;
var
  msg: TMapiMessage;
  lpSender,
  lpRecepient: TMapiRecipDesc;
  FileAttach: TMapiFileDesc;
  SM: TFNMapiSendMail;
  MAPIModule: HModule;
begin
 FillChar(msg, SizeOf(msg), 0);
 with msg do
 begin
   if (Subject<>'') then
   begin
     lpszSubject := PChar(Subject)
   end;
   if (Body<>'') then
   begin
     lpszNoteText := PChar(Body)
   end;
   if (SenderEMail<>'') then
   begin
     lpSender.ulRecipClass := MAPI_ORIG;
     if (SenderName='') then
     begin
       lpSender.lpszName := PChar(SenderEMail)
     end
     else
     begin
       lpSender.lpszName := PChar(SenderName)
     end;
     lpSender.lpszAddress := PChar('SMTP:'+SenderEMail);
     lpSender.ulReserved := 0;
     lpSender.ulEIDSize := 0;
     lpSender.lpEntryID := nil;
     lpOriginator := @lpSender;
   end;
   if (RecepientEMail<>'') then
   begin
     lpRecepient.ulRecipClass := MAPI_TO;
     if (RecepientName='') then
     begin
       lpRecepient.lpszName := PChar(RecepientEMail)
     end
     else
     begin
       lpRecepient.lpszName := PChar(RecepientName)
     end;
     lpRecepient.lpszAddress := PChar('SMTP:'+RecepientEMail);
     lpRecepient.ulReserved := 0;
     lpRecepient.ulEIDSize := 0;
     lpRecepient.lpEntryID := nil;
     nRecipCount := 1;
     lpRecips := @lpRecepient;
   end
   else
   begin
     lpRecips := nil
   end;
   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
 begin
   Result := -1
 end
 else
 begin
   try
     @SM := GetProcAddress(MAPIModule, 'MAPISendMail');
     if @SM<>nil then
     begin
       Result := SM(0, Application.Handle, msg, MAPI_DIALOG or MAPI_LOGON_UI, 0);
       // Result := SM(0, Application.Handle, msg, 0, 0);
     end
     else
     begin
       Result := 1
     end;
   finally
     FreeLibrary(MAPIModule);
   end;
 end;
 if Result<>0 then
 begin
   MessageDlg('Fehler beim Versenden ('+IntToStr(Result)+').', mtError, [mbOk], 0);
 end;
end;
...
procedure Tfrm_main.tbtn_daten_menu_daten_sendenClick(Sender: TObject);
var
 filename, subject, msg, sendername, senderemail, recepientname, recepientemail : String;
begin
 filename       := '<pfad zur Datei>'
 subject        := 'Betreff';
 msg            := 'Nachricht.';
 sendername     := 'Sendername';
 senderemail    := '[e-mail]';
 recepientname  := 'RecepientName';
 recepientemail := '[e-mail],[e-mail]';

 SendMailMAPI(subject, msg, filename, sendername, senderemail, RecepientName, RecepientEMail);
end;