Erreur d'execution 429 un composant active X ne peut pas créer dobject
2 réponses
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 documents\cv.doc"
EnvoyerEmailEtFichiers "francisco@wanadoo.fr", _
"Test", _
"Ceci est un" & vbCrLf & "message de test.", _
astrFichiers
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
malabar
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" a écrit dans le message 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
Merci Arnaud pour ta reponse
Amicalement Francisco
<Anor> a écrit dans le message de news:
eU$k6IfcGHA.4224@TK2MSFTNGP04.phx.gbl...
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" <francisco.peleicano-vasco@wanadoo.fr> a écrit dans le message
de news: 445dfb8d$0$18330$8fcfb975@news.wanadoo.fr...
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
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" a écrit dans le message 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
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" a écrit dans le message 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
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" <francisco.peleicano-vasco@wanadoo.fr> a écrit dans le message de news: 445dfb8d$0$18330$8fcfb975@news.wanadoo.fr...
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
Set olApp = CreateObject(Outlook.Application) mais Set olApp = CreateObject("Outlook.Application")
a+ -- Arnaud --------------------------------------------- infos, conseils et liens : http://www.mpfa.info ---------------------------------------------
"malabar" a écrit dans le message 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