Discussion :

[offspring]

Bonjour,

J'ai créé un formulaire et dans celui-ci, il y a un bouton permettant d'envoyer un mail

Le problème c'est que j'ai un message d'erreur m'indiquant : "Un composant activex ne peut pas créer d'objet"

pourant j'ai bien importer les libraires

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
 
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = destinataire1@supinfo.com;destinataire2@supinfo.com
MonMessage.Cc = destinataire3@supinfo.com;destinataire4@supinfo.com
MonMessage.Bcc = destinataire5@supinfo.com;destinataire6@supinfo.com
MonMessage.Subject = "Sujet du message"
MonMessage.body = "Corps du message"
MonMessage.Attachments.Add "C:\test\test.txt"
MonMessage.send
Set MonOutlook = Nothing

Pouvez vous m'aider ?

Merci

Personne ne peux m'aider ?

je ne comprend pas caar j'ai pris ce code d'un cours et chez moi il ne fonctionne pas

svp

[SfJ5Rpw8]

Deux questions :

1. Sur quelle ligne l'erreur..?
2. Tu as bien Outlook ..(pas l'express) et il fonctionne sur ton poste..?

[offspring]

slt

le message intervient sur cetet ligne :

Code :

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

Set MonOutlook = CreateObject("Outlook.Application")

[offspring]

et oui j'ai bien outlook et pas l'express

[offspring]

---- ?

[Christophe.A]

En VBScript ceci fonctionne pour moi, mais Outlook me demande une confirmation avant l'envoi :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim MonOutlook
Dim MonMessage
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
 
MonMessage.To = "monemail@monfai.lan"
MonMessage.Subject = "Sujet du message"
MonMessage.body = "Corps du message"
MonMessage.send
Set MonOutlook = Nothing

[bubullesoftware]

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
19
20
Private Sub Commande34_Click()
If IsNull(Mail_client) = False Then
Dim alerte As String
 
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
Dim sujetmail As String
Dim corpsmail As String
sujetmail = InputBox("Saisir le Sujet du message Ici", "Sujet")
corpsmail = InputBox("Corps du Message", "Corps")
MonMessage.To = Me.Mail_client
MonMessage.Subject = sujetmail
MonMessage.body = corpsmail
MonMessage.Send
Set MonOutlook = Nothing
Else
alerte = MsgBox("Aucune adresse email pour le client", , "Coordonnées Manquantes")
End If

pour ma part ce code qui est fortement similaire avec des appels de variables pour les chps sujet et corps

pour ce qui est de la demande de confirmation il existe un petit soft gratuit "advanced security outlook" qui permet de libérer cette contrainte dans outlook (le danger est de servir de relais en cas d'infection très facilement mais par ex je l'utilise sur un poste qui emet mais ne recoit aucun mail

pour ce qui est de l'erreur référence a l'activex il faut référencer la bibliothèque outlook dans ton access, sinon il ne peut faire le lien et la création de l'objet

bon courag'e