Discussion :

[DurDur]

Bonjour,

J'ai créé un petite application pour un club sous access.
Dans cette application, pour envoyer un Mail aux adhérents, je fais appel au formulaire de la messagerie de Outlook. Lorsque celui-ci s'ouvre, neuf fois sur dix, il se trouve au-dessous du formulaire (menu) qui l'a appelé. Je n'ai pas trouvé comment le faire ouvrir à coup sûr au premier plan.
Si quelqu'un a une idée, je suis preneur.
@+

JCB

[Tofalu]

Quelle méthode utilises tu pour l'ouvrir ?

[DurDur]

Bonjour,

Merci de ta réponse rapide.

J'utilise ce code :

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
Private Sub cmd__MAILPERSO_Click()
 
Dim jc_Outlook As Object 'Création des objets
Dim jc_Message As Object
 
Set jc_Outlook = CreateObject("Outlook.Application") 'Création de l'objet Outlook
Set jc_Message = jc_Outlook.CreateItem(0) 'Ajout d'un item pour le message
 
' affiche le formulaire OUTLOOK
jc_Message.Display
 
' -----------------
' -----------------
 
        'Suppression des objets (Vidage)
        Set jc_Message = Nothing
        Set jc_Outlook = Nothing
End Sub

C'est un extrait du code qui me permet d'envoyer des Mails aux adhérents (tous ou trié) et en se servant du formulaire de Outlook, on peut composer le message à la demande et même d'y ajouter des pièces jointes.

Encore merci pour ton intérêt à ma question.

JC57

[Access Newbie]

Bonjour,

Je n'ai pas testé mais un petit :

Code :

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

jc_Message.SetFocus

ne serait-il pas possible ?

Sinon autre piste de reflexion, le formulaire Menu est-il une fenetre independante ? (cf proprietes du formulaire)

[DurDur]

Bonsoir,

Non, le menu n'est pas une fenêtre indépendante, sinon c'est pire, il faudrait fermer pour retrouver le formulaire de Outlook et à ce moment là l'application serait aussi fermé.

Pour le suggestion, je l'essaierais demain.

Encore merci.

JCB

[fgiambelluco]

Bonjour
Si c'est juste pour afficher un message, on peut aussi utiliser :

Code :

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

DoCmd.SendObject

[DurDur]

Bonjour à tous,

La fonction

Code :

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

.setfocus

ne fonctionne pas.
Par contre, la commande

Code :

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

docmd send.object

fait , très simplement, apparaître un formulaire de message au premier plan.
Mais maintenant comment peut on y inclure les destinataires en complétant les champs "TO" ou "BCC" d'une manière automatique avec une chaîne de caratères déjà créée.

Merci de vos réponses.

JC57

[fgiambelluco]

Bonjour
Regarde l'aide associée à l'instruction SendObject (clic dessus + F1) et tu auras les arguments que tu peux utiliser;

[DurDur]

Un grand MERCI à fgiambelluco,

C'est pile poil ce que je cherchais depuis un moment et heureusement que tu es arrivé sinon je n'aurais plus de cheveux.
Une seule commande et elle résoud tous mes problèmes d'envoi de mail (destinataires, pièces jointes, durée de connexion, utilisation de ma messagerie, etc ...).
Personne sur les forums n'avait pensé à cette commande qui symplifie tout (une seule ligne de code).
Encore BRAVO.

JC57