Erreur d'execution 429 un composant active X ne peut pas créer dobject

Le
malabar
Bonjour tout le monde
J'essaie de faire fonctionner ce code et j'ai un message d'erreur à ce
niveau
Set miEmail = olApp.CreateItem(olMailItem)
Si quelqu'un pourrait m'expliquer aussi ce qu'est un controle active x

Merci pour vos réponses
Amicalement Francisco
Function EnvoyerEmailEtFichiers(ByVal strDest As String, _
ByVal strSubject As String, _
ByVal strMsg As String, _
astrFichiers() As String)

Dim olApp As Outlook.Application
Dim miEmail As Outlook.MailItem
Dim rcDest As Outlook.Recipient

' Initialiser un objet Outlook
Set olApp = CreateObject(Outlook.Application)

' Créer le message
Set miEmail = olApp.CreateItem(olMailItem)

' Renseigner le message
With miEmail
' Définir le destinataire, et le vérifier
Set rcDest = .Recipients.Add(strDest)
rcDest.Type = olTo

' Les lignes ci-dessous permettent éventuellement de
' vérifier les adresses par rapport au carnet d'adresses
'For Each olDest In .Recipients
'olDest.Resolve
'Next

' Sujet et corps du message
.Subject = strSubject
.Body = strMsg & vbCrLf & vbCrLf

' Ajouter les pièces jointes
Dim varFichier As Variant
For Each varFichier In astrFichiers
' Vérifier que le fichier existe
If (varFichier <> "") And (Dir(varFichier) <> "") Then
.Attachments.Add varFichier
Next


' Afficher le message
.Send
' .Send
End With
Set miEmail = Nothing
Set olApp = Nothing
End Function
***************************************************************************
Sub TestEnvoiEmail()
Dim astrFichiers(1 To 1) As String
astrFichiers(1) = "c:mes documentscv.doc"


EnvoyerEmailEtFichiers "francisco@wanadoo.fr", _
"Test", _
"Ceci est un" & vbCrLf & "message de test.", _
astrFichiers
End Sub
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
malabar
Le #6112301
Merci Arnaud pour ta reponse
Amicalement Francisco
<Anor> a écrit dans le message de news:
eU$
Bonjour,

On ne dit pas

Set olApp = CreateObject(Outlook.Application)
mais
Set olApp = CreateObject("Outlook.Application")


a+
--
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------

"malabar" de news: 445dfb8d$0$18330$

Bonjour tout le monde
J'essaie de faire fonctionner ce code et j'ai un message d'erreur à ce
niveau
Set miEmail = olApp.CreateItem(olMailItem)
Si quelqu'un pourrait m'expliquer aussi ce qu'est un controle active x

Merci pour vos réponses
Amicalement Francisco
Function EnvoyerEmailEtFichiers(ByVal strDest As String, _
ByVal strSubject As String, _
ByVal strMsg As String, _
astrFichiers() As String)

Dim olApp As Outlook.Application
Dim miEmail As Outlook.MailItem
Dim rcDest As Outlook.Recipient

' Initialiser un objet Outlook
Set olApp = CreateObject(Outlook.Application)

' Créer le message
Set miEmail = olApp.CreateItem(olMailItem)

' Renseigner le message
With miEmail
' Définir le destinataire, et le vérifier
Set rcDest = .Recipients.Add(strDest)
rcDest.Type = olTo

' Les lignes ci-dessous permettent éventuellement de
' vérifier les adresses par rapport au carnet d'adresses
'For Each olDest In .Recipients
'olDest.Resolve
'Next

' Sujet et corps du message
.Subject = strSubject
.Body = strMsg & vbCrLf & vbCrLf

' Ajouter les pièces jointes
Dim varFichier As Variant
For Each varFichier In astrFichiers
' Vérifier que le fichier existe
If (varFichier <> "") And (Dir(varFichier) <> "") Then
.Attachments.Add varFichier
Next


' Afficher le message
.Send
' .Send
End With
Set miEmail = Nothing
Set olApp = Nothing
End Function

***************************************************************************


Sub TestEnvoiEmail()
Dim astrFichiers(1 To 1) As String
astrFichiers(1) = "c:mes documentscv.doc"


EnvoyerEmailEtFichiers "", _
"Test", _
"Ceci est un" & vbCrLf & "message de test.", _
astrFichiers
End Sub










Le #6112021
Bonjour,

On ne dit pas

Set olApp = CreateObject(Outlook.Application)
mais
Set olApp = CreateObject("Outlook.Application")


a+
--
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------

"malabar"
Bonjour tout le monde
J'essaie de faire fonctionner ce code et j'ai un message d'erreur à ce
niveau
Set miEmail = olApp.CreateItem(olMailItem)
Si quelqu'un pourrait m'expliquer aussi ce qu'est un controle active x

Merci pour vos réponses
Amicalement Francisco
Function EnvoyerEmailEtFichiers(ByVal strDest As String, _
ByVal strSubject As String, _
ByVal strMsg As String, _
astrFichiers() As String)

Dim olApp As Outlook.Application
Dim miEmail As Outlook.MailItem
Dim rcDest As Outlook.Recipient

' Initialiser un objet Outlook
Set olApp = CreateObject(Outlook.Application)

' Créer le message
Set miEmail = olApp.CreateItem(olMailItem)

' Renseigner le message
With miEmail
' Définir le destinataire, et le vérifier
Set rcDest = .Recipients.Add(strDest)
rcDest.Type = olTo

' Les lignes ci-dessous permettent éventuellement de
' vérifier les adresses par rapport au carnet d'adresses
'For Each olDest In .Recipients
'olDest.Resolve
'Next

' Sujet et corps du message
.Subject = strSubject
.Body = strMsg & vbCrLf & vbCrLf

' Ajouter les pièces jointes
Dim varFichier As Variant
For Each varFichier In astrFichiers
' Vérifier que le fichier existe
If (varFichier <> "") And (Dir(varFichier) <> "") Then
.Attachments.Add varFichier
Next


' Afficher le message
.Send
' .Send
End With
Set miEmail = Nothing
Set olApp = Nothing
End Function
***************************************************************************
Sub TestEnvoiEmail()
Dim astrFichiers(1 To 1) As String
astrFichiers(1) = "c:mes documentscv.doc"


EnvoyerEmailEtFichiers "", _
"Test", _
"Ceci est un" & vbCrLf & "message de test.", _
astrFichiers
End Sub






Publicité
Poster une réponse
Anonyme