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