Discussion :

[Hannibal]

Bonjour,

j'ai un formulaire et j'y ai rajouté un bouton

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Sub UseOutlook()
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  MonMessage.To = mail
  MonMessage.Subject = "Refeering"
  MonMessage.Body = DLookup("caractere", "password", "id = 15 ")
  MonMessage.Send
  'MsgBox mail
  Set MonOutlook = Nothing
End Sub

Et l'appel du sub par le bouton:

Code :

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

1
2
3
4
5
6
 
Private Sub Commande17_Click()
 
Call UseOutlook
 
End Sub

Rien ne se passe, pourtant le sub est bien appelé! je ne trouve pas ma faute.
j'ai également rajouté ds outils/références microsoft outlook 9.0 object library.

Merci d'avance

[Frank]

Regardes ton code en mode pas à pas.
Et regardes la Faq là.

[Hannibal]

Lorsque j'utilise le code de la FAQ, j'ai comme erreur
pour la ligne

Code :

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

Set oEmail = appOutLook.CreateItem(olMailItem)

Erreur d'exécution 424: Objet requis

Pour mon code, Je trouve toujours pas le problème (lorsque je veux ouvrir un document word, la ca marche mais ici il veut même pas m'ouvrir outlook express).

Autre chose surprenante, il m'a envoyé tout d'un coup hier 15 mails( sans m'ouvrir outlook). c'était tous les mails que j'avais créé. Mais moi, j'aimerais bien avoir le mail créé et l'envoyer moi même.

[Frank]

Voici l'exemple de l'utilisation du MailItem provenant de l'aide Access 2000.

MailItem, objet

Représente un message électronique dans un dossier Boîte de réception.

Utilisation de l'objet MailItem

La méthode CreateItem permet de créer un objet MailItem qui représente un nouveau message électronique. L'exemple suivant montre comment créer et afficher un nouveau message électronique.

Code :

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

1
2
3
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Display

Pour renvoyer un seul objet MailItem d'un dossier Boîte de réception, utilisez la propriété Items(index), où index est le numéro d'index d'un message électronique ou une valeur correspondant à la propriété par défaut d'un message. L'exemple suivant montre comment définir le dossier en cours comme Boîte de réception et afficher le deuxième message électronique du dossier.

Code :

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

1
2
3
4
5
6
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder =_ myNamespace.GetDefaultFolder(olFolderInbox)
myFolder.Display
Set myItem = myFolder.Items(2)
myItem.Display

Code :

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

myItem.Display

permet d'afficher le message.

[Hannibal]

Ok ca marche correctement.
Apparemment mon problème venait du fait que ZoneAlarm bloquait l'envoi des mails mais ne me demandait pas si je voulias laisser outlook accéder à Internet.
En affichant le mail (avec displau) puis en l'envoyant manuellement, ZoneAlarm m'a posé la question et m'a envoyé les 20 mails précédents que j'avais essayé d'envoyer...

Un grand merci et bon dimanche