Discussion :

[bidson]

Bonjour,

Mon programme fabrique des fichiers pdf pour des clients, je désire suite à la création du pdf envoyer un message avec en pièce jointe le fichier. J'ai consulter la doc (forum) et voici le corps de mon programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CoInitialize(nil);
Outlook.Connect;
EspaceDeNom := Outlook.GetNamespace('MAPI');
EspaceDeNom.Logon('', '', False, False);
// Crée un élément MailItem représentant un courrier électronique
UnMail:=Outlook.CreateItem(olMailItem) as MailItem;
// Ajoute un ou plusieurs destinataires
UnMail.Recipients.Add(Adresse Client);
UnMail.Subject := 'Mon Sujet';
// Ajoute un retour chariot pour séparer le corps du message des piéces jointes
UnMail.Body := 'Corps de mon message';
//Ajoute une ou plusieurs pièces jointes
UnMail.Attachments.Add(Monfichier, olByValue, EmptyParam, EmptyParam);
 // Place le mail dans la boîte d'envoi, mais ne l'envoi pas.
UnMail.Send;
EspaceDeNom.Logoff;
Outlook.Quit;
//CoUnInitialize;

Comme vous voyez, je n'ai rien inventé ! J'ai quelques soucis tout de même :

1 / Outlook m'envoie deux messages de sécurité. Le premier pour me demander combien de temps je veux permettre l'utilisation d'outlook et le second pour confirmer l'envoie du mail.
Que faut-il faire pour ne pas avoir ces deux messages ?
2 / Si Outlook est ouvert sur le poste de l'utilisateur, il est fermé automatiquement.
Comment faire pour tester si outlook est déjà ouvert, afin de le fermer s'il n'était pas déjà ouvert ?
3 / J'ai mis "CoUnInitialize" en commentaire car j'ai un message d'erreur sinon
4 / En posant ce bout de code dans l'unité, il y a un problème de compilation sur cette unité lorsque j'écris :

Except
raise Exception.create('Prévenir la maintenance');
End;

Le message est "Type Objet ou Class requis".
Problème que je n'ai pas dans mes autres forms ou unités (je n'y utilise pas la création de mail)

Merci pour toutes vos précisions

[WolffN]

bonjour

plutot que d'utiliser outlook je te conseille les composants INDY (pour garder une trace de l'envoi il te suffira de te rajouter en copie caché)
d'ailleurs il y a des informations sur l'envoi de mail dans la FAQ Delphi

[chtiot]

http://office.microsoft.com/fr-fr/as...127891036.aspx

[bidson]

Merci pour cette aide tChiot. Mais que peut-on en conclure ?

Je bosse avec Delphi 6, interagit-il avec Outlook Pro (Version XP / 2003) ?

J'ai besoin d'envoyer des mails en rafale à mes clients pour les avertir d'un contrôle de leur marchandise chez nous. Ce contrôle nous arrive sous forme de fichier texte d'une centaine de lignes. Aussi, je ne peux envoyer 100 mails si OutLook me colle 100 messages de sécurité !

[chtiot]

sur le site Microsoft :

Toutefois, vérifiez auprès du fournisseur de votre logiciel de synchronisation si des mises à jour récentes de son logiciel incluent l'interaction avec Outlook de manière fiable. Ce message ne s'affiche pas lorsque Outlook interagit avec des logiciels de synchronisation fiables.

en fait il suffirait de savoir comment faire pour inclure l'interaction avec Outlook de manière fiable.

Si quelqu'un sait, je suis preneur aussi.

[aityahia]

tu peut utiliser le composant IdSmtp et IdMessage de Indy tous en restant indépendant d'outlook il te faut juste un serveur smtp.

[Laurent Dardenne]

Pour Outlook une solution a été proposée il y a qq jours sur ce forum.
Fonction rechercher : Outlook and sécurité.
On ne l'a pas encore placé dans la FAQ...

[chtiot]

Pour Outlook une solution a été proposée il y a qq jours sur ce forum.
Fonction rechercher : Outlook and sécurité.
On ne l'a pas encore placé dans la FAQ...

merci à toi, je vais regarder...