Erreur d'execution 91 Set miEmail = olApp.CreateItem(olMailItem) il me renvoie une valeur 0 Envoi mail a partir d'acces avec piece jointe
2 réponses
malabar
Bonsoir tout le monde
Execusez moi de reposer un peu pres la meme question car je ne suis pas
assez précis dans ce que je demande par mon manque de savoir et merci pour
votre patience mais je n'arrive pas à faire fonctionner ce code et j'ai le
message d'erreur Erreur d'execution 91 à ce niveau pourtant je vais dans
outis references et j'ai coché les choses suivantes :
Visual Basic for Applications
Microsoft Access 10.0 object library
Microsoft DAO 3.6 Object library
Microsoft office 10.0 Object Library
Set miEmail = olApp.CreateItem(olMailItem) il me renvoie une valeur 0 et le
message d'erreur suivant Erreur d'execution 91 Variables objects ou
variables de blocs non definies
vous trouverez lze code ci dessous
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 patiente et ta reponse Amicalement Francisco <Anor> a écrit dans le message de news:
Bonjour C'est la référence Microsoft Oulook 10.0 Object Library qu'il faut cocher, pas Office
a+
-- Arnaud --------------------------------------------- infos, conseils et liens : http://www.mpfa.info ---------------------------------------------
"malabar" a écrit dans le message de news: 445e725d$0$20171$
Bonsoir tout le monde Execusez moi de reposer un peu pres la meme question car je ne suis pas assez précis dans ce que je demande par mon manque de savoir et merci pour
votre patience mais je n'arrive pas à faire fonctionner ce code et j'ai le
message d'erreur Erreur d'execution 91 à ce niveau pourtant je vais dans outis references et j'ai coché les choses suivantes :
Visual Basic for Applications Microsoft Access 10.0 object library Microsoft DAO 3.6 Object library Microsoft office 10.0 Object Library
Set miEmail = olApp.CreateItem(olMailItem) il me renvoie une valeur 0 et le
message d'erreur suivant Erreur d'execution 91 Variables objects ou variables de blocs non definies
vous trouverez lze code ci dessous 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 patiente et ta reponse
Amicalement Francisco
<Anor> a écrit dans le message de news:
eY48VTncGHA.5116@TK2MSFTNGP04.phx.gbl...
Bonjour
C'est la référence Microsoft Oulook 10.0 Object Library qu'il faut cocher,
pas Office
a+
--
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------
"malabar" <francisco.peleicano-vasco@wanadoo.fr> a écrit dans le message
de news: 445e725d$0$20171$8fcfb975@news.wanadoo.fr...
Bonsoir tout le monde
Execusez moi de reposer un peu pres la meme question car je ne suis pas
assez précis dans ce que je demande par mon manque de savoir et merci
pour
votre patience mais je n'arrive pas à faire fonctionner ce code et j'ai
le
message d'erreur Erreur d'execution 91 à ce niveau pourtant je vais dans
outis references et j'ai coché les choses suivantes :
Visual Basic for Applications
Microsoft Access 10.0 object library
Microsoft DAO 3.6 Object library
Microsoft office 10.0 Object Library
Set miEmail = olApp.CreateItem(olMailItem) il me renvoie une valeur 0 et
le
message d'erreur suivant Erreur d'execution 91 Variables objects ou
variables de blocs non definies
vous trouverez lze code ci dessous
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 patiente et ta reponse Amicalement Francisco <Anor> a écrit dans le message de news:
Bonjour C'est la référence Microsoft Oulook 10.0 Object Library qu'il faut cocher, pas Office
a+
-- Arnaud --------------------------------------------- infos, conseils et liens : http://www.mpfa.info ---------------------------------------------
"malabar" a écrit dans le message de news: 445e725d$0$20171$
Bonsoir tout le monde Execusez moi de reposer un peu pres la meme question car je ne suis pas assez précis dans ce que je demande par mon manque de savoir et merci pour
votre patience mais je n'arrive pas à faire fonctionner ce code et j'ai le
message d'erreur Erreur d'execution 91 à ce niveau pourtant je vais dans outis references et j'ai coché les choses suivantes :
Visual Basic for Applications Microsoft Access 10.0 object library Microsoft DAO 3.6 Object library Microsoft office 10.0 Object Library
Set miEmail = olApp.CreateItem(olMailItem) il me renvoie une valeur 0 et le
message d'erreur suivant Erreur d'execution 91 Variables objects ou variables de blocs non definies
vous trouverez lze code ci dessous 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 C'est la référence Microsoft Oulook 10.0 Object Library qu'il faut cocher, pas Office a+
-- Arnaud --------------------------------------------- infos, conseils et liens : http://www.mpfa.info ---------------------------------------------
"malabar" a écrit dans le message de news: 445e725d$0$20171$
Bonsoir tout le monde Execusez moi de reposer un peu pres la meme question car je ne suis pas assez précis dans ce que je demande par mon manque de savoir et merci pour votre patience mais je n'arrive pas à faire fonctionner ce code et j'ai le message d'erreur Erreur d'execution 91 à ce niveau pourtant je vais dans outis references et j'ai coché les choses suivantes :
Visual Basic for Applications Microsoft Access 10.0 object library Microsoft DAO 3.6 Object library Microsoft office 10.0 Object Library
Set miEmail = olApp.CreateItem(olMailItem) il me renvoie une valeur 0 et le message d'erreur suivant Erreur d'execution 91 Variables objects ou variables de blocs non definies
vous trouverez lze code ci dessous 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
C'est la référence Microsoft Oulook 10.0 Object Library qu'il faut cocher, pas Office
a+
--
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------
"malabar" <francisco.peleicano-vasco@wanadoo.fr> a écrit dans le message de news: 445e725d$0$20171$8fcfb975@news.wanadoo.fr...
Bonsoir tout le monde
Execusez moi de reposer un peu pres la meme question car je ne suis pas
assez précis dans ce que je demande par mon manque de savoir et merci pour
votre patience mais je n'arrive pas à faire fonctionner ce code et j'ai le
message d'erreur Erreur d'execution 91 à ce niveau pourtant je vais dans
outis references et j'ai coché les choses suivantes :
Visual Basic for Applications
Microsoft Access 10.0 object library
Microsoft DAO 3.6 Object library
Microsoft office 10.0 Object Library
Set miEmail = olApp.CreateItem(olMailItem) il me renvoie une valeur 0 et le
message d'erreur suivant Erreur d'execution 91 Variables objects ou
variables de blocs non definies
vous trouverez lze code ci dessous
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
Bonjour C'est la référence Microsoft Oulook 10.0 Object Library qu'il faut cocher, pas Office a+
-- Arnaud --------------------------------------------- infos, conseils et liens : http://www.mpfa.info ---------------------------------------------
"malabar" a écrit dans le message de news: 445e725d$0$20171$
Bonsoir tout le monde Execusez moi de reposer un peu pres la meme question car je ne suis pas assez précis dans ce que je demande par mon manque de savoir et merci pour votre patience mais je n'arrive pas à faire fonctionner ce code et j'ai le message d'erreur Erreur d'execution 91 à ce niveau pourtant je vais dans outis references et j'ai coché les choses suivantes :
Visual Basic for Applications Microsoft Access 10.0 object library Microsoft DAO 3.6 Object library Microsoft office 10.0 Object Library
Set miEmail = olApp.CreateItem(olMailItem) il me renvoie une valeur 0 et le message d'erreur suivant Erreur d'execution 91 Variables objects ou variables de blocs non definies
vous trouverez lze code ci dessous 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