Über Mapi senden - Konto/Profil auswählen

[süden]

Hallo,
nach langer Suche - nix gefunden.

Ich möchte Emails über Mapi senden. Doch gibt es viele Anwender, die mehrere Konten bzw. Profile haben.
Kann man die bei SendMail vielleicht vorwählen?
Wenn ich (direkt) sende, wird immer das Standard-Konto benutzt, was nicht immer passt (privat/geschäftlich).
Das Standard-Emailprogramm ist nicht bekannt, ich verwende Thunderbird.

Gruß süden

[baumina]

Vielleicht hilft der Ansatz hier weiter, zumindest kam ich so auf einen anderen Kalender als der, der Standard war:

Delphi-Quellcode:

var
  myRecipient,outlook, NameSpace : OleVariant;

begin
  try
    Outlook := CreateOleObject('Outlook.Application');
  except
    MessageDlg('Outlook konnte nicht initialisiert werden.', mtError, [mbOK], 0);
    Exit;
  end;

  try
    NameSpace := Outlook.GetNameSpace('MAPI');
  except
    MessageDlg('MAPI für Outlook konnte nicht initialisiert werden.', mtError, [mbOK], 0);
    Outlook := Unassigned;
    Exit;
  end;

  myRecipient := NameSpace.CreateRecipient('[e-mail]'); 
  ...

dann weiter mit "NameSpace.GetSharedDefaultFolder(...." (glaub das geht aber nicht für alles) zumindest kannst im MSDN gut nachlesen.


EDIT : Achso, sry hab jetzt erst gelesen, dass Du nicht über Outlook gehst, also passt das wohl nicht.

[baumina]

Stattdessen hab ich das hier gefunden:

Wenn MAPILogonEx ohne Angabe eines Profils und gesetztem MAPI_LOGON_UI-Kennzeichen aufgerufen wird, zeigt MAPI den Profilerstellungs-Assistenten an, sofern auf dem Computer noch keine Profile gespeichert sind. Falls bereits Profile vorhanden sind, zeigt MAPI das Dialogfeld Profil auswählen an. Klicken Sie auf Neu, um den Profilerstellungs-Assisten zu starten.

Hier gefunden: http://support.microsoft.com/kb/306962/de

[süden]

Hallo,
ich habe gelesen, dass es immer wieder Probleme mit "MAPILogonEx".
Aber davon abgesehen, ob dass bei Thunderbird funktioniert?

Gruß süden

[baumina]

Ja ich befürchte auch, dass es ein Problem gibt über MAPI zu gehen, wenn der Client nicht bekannt ist. Bleibt noch Mails nicht über MAPI zu verschicken.

[baumina]

Aber so schnell sollte man nicht aufgeben, hast du es mal so versucht ... mit "MAPI_DIALOG", vielleicht beinhaltet der ja auch die Absenderadresse?

http://www.experts-exchange.com/Prog...with-MAPI.html

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[süden]

Die Absenderadresse enthält die Funktion auch, wird aber ignoriert!

Code:

  SendMail(teBetreff.Text,                     // Betreffzeile
         dmKM.RecEmail.anrede+#13#10,          // Text der eMail
         'süden',                              // FromName
         '[e-mail]',                 // FromAdress
         dmKM.RecEmail.name,                   // ToName
         dmKM.RecEmail.email,                  // ToAdress
         '',                                   // AttachedFileName
         '',                                   // FileDisplayName
         true);                                // ShowDialog

Ich möchte gerne die "Lagerung" und Verwaltung Thunderbird/Outlook überlassen.
Hauptsächlich maile ich über TB, aber mit meinem Kontaktprogramm soll das auch gehen - für gelegentliche eMails.

Gruß süden