Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

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
Avatar
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

2 réponses

Avatar
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











Avatar
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