J'ai trouvé le code ci-dessous qui correspond bien à ce que je veux faire,
cependant il ne fonctionne, je récupère l'erreur: "La Valeur de Configuration
SendUsing est non Valide" . Cette erreur se produit sur .Send
Comment puis-je résoudre ce problème ?
Merci pour votre aide
Public Sub SendMailCDOFeuilleRoute(adremail As String, LeMsg As String,
nomfich8 As String, nomfichier As String, Nomfich2 As String, _
Nomfich3 As String, Nomfich4 As String, Nomfich5 As String, Nomfich6 As
String, Nomfich7 As String)
On Error GoTo EnvoiMsg_err
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.to = adremail
.TextBody = LeMsg
.FROM = """Emetteur""<tourazur@tourazur.com>"
.Subject = "Feuille de route"
If Len(Dir(nomfich8)) <> 0 Then .AddAttachment (nomfich8)
If Len(Dir(nomfichier)) <> 0 Then .AddAttachment (nomfichier)
If Len(Dir(Nomfich2)) <> 0 Then .AddAttachment (Nomfich2)
If Len(Dir(Nomfich3)) <> 0 Then .AddAttachment (Nomfich3)
If Len(Dir(Nomfich4)) <> 0 Then .AddAttachment (Nomfich4)
If Len(Dir(Nomfich5)) <> 0 Then .AddAttachment (Nomfich5)
If Len(Dir(Nomfich6)) <> 0 Then .AddAttachment (Nomfich6)
If Len(Dir(Nomfich7)) <> 0 Then .AddAttachment (Nomfich7)
.Send
End With
EnvoiMsg_exit:
Set Cdo_Message = Nothing
Exit Sub
EnvoiMsg_err:
MsgBox Err.Description, vbInformation, "Envoi Feuille de route"
Resume EnvoiMsg_exit
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
yop75
=?Utf-8?B?ZmxvbWVu?= écrivait news::
With Cdo_Message
sous Excel , j'ai ça :
Set ol = New Outlook.Application Set olMail = ol.CreateItem(olMailItem) With olMail .BCC = "ma liste de diff" If Len(BackCopy) <> 0 Then .BCC = BackCopy End If .Subject = "blablabla" & (j2)
.Attachments.Add "D:mon chemin d' accespartie fixe de nom fichier" & Jour & ".xls" .Attachments.Add "D:mon chemin d' accespartie fixe de nom fichier2 & Jour & ".xls" ' envoie le fichier ( send) ou prépare à l' envoie ( display ) .Send
Ce qui me fait me demander : n' aurait ' il pas oublié de déclarer le client mail ? ( Set ol = New Outlook.Application )
Set ol = New Outlook.Application
Set olMail = ol.CreateItem(olMailItem)
With olMail
.BCC = "ma liste de diff"
If Len(BackCopy) <> 0 Then
.BCC = BackCopy
End If
.Subject = "blablabla" & (j2)
.Attachments.Add "D:mon chemin d' accespartie fixe de nom fichier" &
Jour & ".xls"
.Attachments.Add "D:mon chemin d' accespartie fixe de nom fichier2 &
Jour & ".xls"
' envoie le fichier ( send) ou prépare à l' envoie ( display )
.Send
Ce qui me fait me demander : n' aurait ' il pas oublié de déclarer le
client mail ? ( Set ol = New Outlook.Application )
Set ol = New Outlook.Application Set olMail = ol.CreateItem(olMailItem) With olMail .BCC = "ma liste de diff" If Len(BackCopy) <> 0 Then .BCC = BackCopy End If .Subject = "blablabla" & (j2)
.Attachments.Add "D:mon chemin d' accespartie fixe de nom fichier" & Jour & ".xls" .Attachments.Add "D:mon chemin d' accespartie fixe de nom fichier2 & Jour & ".xls" ' envoie le fichier ( send) ou prépare à l' envoie ( display ) .Send
Ce qui me fait me demander : n' aurait ' il pas oublié de déclarer le client mail ? ( Set ol = New Outlook.Application )
Bon courage
Fred
Salut !
Si tu es sous Windows XP Pro (non valable sur XP Home) Tu vas sur panneau de configuration --> Ajout/suppression de programme --> Composants windows --> va dans le détail de <Services Internet> et coche SMTP. D'autres options vont se sélectionner en même temps. Tu cliques sur Ok et ensuite OK.
Fred
"flomen" a écrit dans le message de news:
Bonjour,
J'ai trouvé le code ci-dessous qui correspond bien à ce que je veux faire, cependant il ne fonctionne, je récupère l'erreur: "La Valeur de Configuration SendUsing est non Valide" . Cette erreur se produit sur .Send
Comment puis-je résoudre ce problème ?
Merci pour votre aide
Public Sub SendMailCDOFeuilleRoute(adremail As String, LeMsg As String, nomfich8 As String, nomfichier As String, Nomfich2 As String, _ Nomfich3 As String, Nomfich4 As String, Nomfich5 As String, Nomfich6 As String, Nomfich7 As String) On Error GoTo EnvoiMsg_err Dim Cdo_Message As Object Set Cdo_Message = CreateObject("CDO.Message") With Cdo_Message .to = adremail .TextBody = LeMsg .FROM = """Emetteur""" .Subject = "Feuille de route" If Len(Dir(nomfich8)) <> 0 Then .AddAttachment (nomfich8) If Len(Dir(nomfichier)) <> 0 Then .AddAttachment (nomfichier) If Len(Dir(Nomfich2)) <> 0 Then .AddAttachment (Nomfich2) If Len(Dir(Nomfich3)) <> 0 Then .AddAttachment (Nomfich3) If Len(Dir(Nomfich4)) <> 0 Then .AddAttachment (Nomfich4) If Len(Dir(Nomfich5)) <> 0 Then .AddAttachment (Nomfich5) If Len(Dir(Nomfich6)) <> 0 Then .AddAttachment (Nomfich6) If Len(Dir(Nomfich7)) <> 0 Then .AddAttachment (Nomfich7) .Send End With
EnvoiMsg_exit: Set Cdo_Message = Nothing Exit Sub EnvoiMsg_err: MsgBox Err.Description, vbInformation, "Envoi Feuille de route" Resume EnvoiMsg_exit End Sub
Salut !
Si tu es sous Windows XP Pro (non valable sur XP Home)
Tu vas sur panneau de configuration --> Ajout/suppression de programme -->
Composants windows --> va dans le détail de <Services Internet> et coche
SMTP. D'autres options vont se sélectionner en même temps.
Tu cliques sur Ok et ensuite OK.
Fred
"flomen" <flomen@discussions.microsoft.com> a écrit dans le message de news:
1B7049DB-7A9D-43B4-BBBE-49CEBC7B9278@microsoft.com...
Bonjour,
J'ai trouvé le code ci-dessous qui correspond bien à ce que je veux faire,
cependant il ne fonctionne, je récupère l'erreur: "La Valeur de
Configuration
SendUsing est non Valide" . Cette erreur se produit sur .Send
Comment puis-je résoudre ce problème ?
Merci pour votre aide
Public Sub SendMailCDOFeuilleRoute(adremail As String, LeMsg As String,
nomfich8 As String, nomfichier As String, Nomfich2 As String, _
Nomfich3 As String, Nomfich4 As String, Nomfich5 As String, Nomfich6 As
String, Nomfich7 As String)
On Error GoTo EnvoiMsg_err
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.to = adremail
.TextBody = LeMsg
.FROM = """Emetteur""<tourazur@tourazur.com>"
.Subject = "Feuille de route"
If Len(Dir(nomfich8)) <> 0 Then .AddAttachment (nomfich8)
If Len(Dir(nomfichier)) <> 0 Then .AddAttachment (nomfichier)
If Len(Dir(Nomfich2)) <> 0 Then .AddAttachment (Nomfich2)
If Len(Dir(Nomfich3)) <> 0 Then .AddAttachment (Nomfich3)
If Len(Dir(Nomfich4)) <> 0 Then .AddAttachment (Nomfich4)
If Len(Dir(Nomfich5)) <> 0 Then .AddAttachment (Nomfich5)
If Len(Dir(Nomfich6)) <> 0 Then .AddAttachment (Nomfich6)
If Len(Dir(Nomfich7)) <> 0 Then .AddAttachment (Nomfich7)
.Send
End With
EnvoiMsg_exit:
Set Cdo_Message = Nothing
Exit Sub
EnvoiMsg_err:
MsgBox Err.Description, vbInformation, "Envoi Feuille de route"
Resume EnvoiMsg_exit
End Sub
Si tu es sous Windows XP Pro (non valable sur XP Home) Tu vas sur panneau de configuration --> Ajout/suppression de programme --> Composants windows --> va dans le détail de <Services Internet> et coche SMTP. D'autres options vont se sélectionner en même temps. Tu cliques sur Ok et ensuite OK.
Fred
"flomen" a écrit dans le message de news:
Bonjour,
J'ai trouvé le code ci-dessous qui correspond bien à ce que je veux faire, cependant il ne fonctionne, je récupère l'erreur: "La Valeur de Configuration SendUsing est non Valide" . Cette erreur se produit sur .Send
Comment puis-je résoudre ce problème ?
Merci pour votre aide
Public Sub SendMailCDOFeuilleRoute(adremail As String, LeMsg As String, nomfich8 As String, nomfichier As String, Nomfich2 As String, _ Nomfich3 As String, Nomfich4 As String, Nomfich5 As String, Nomfich6 As String, Nomfich7 As String) On Error GoTo EnvoiMsg_err Dim Cdo_Message As Object Set Cdo_Message = CreateObject("CDO.Message") With Cdo_Message .to = adremail .TextBody = LeMsg .FROM = """Emetteur""" .Subject = "Feuille de route" If Len(Dir(nomfich8)) <> 0 Then .AddAttachment (nomfich8) If Len(Dir(nomfichier)) <> 0 Then .AddAttachment (nomfichier) If Len(Dir(Nomfich2)) <> 0 Then .AddAttachment (Nomfich2) If Len(Dir(Nomfich3)) <> 0 Then .AddAttachment (Nomfich3) If Len(Dir(Nomfich4)) <> 0 Then .AddAttachment (Nomfich4) If Len(Dir(Nomfich5)) <> 0 Then .AddAttachment (Nomfich5) If Len(Dir(Nomfich6)) <> 0 Then .AddAttachment (Nomfich6) If Len(Dir(Nomfich7)) <> 0 Then .AddAttachment (Nomfich7) .Send End With
EnvoiMsg_exit: Set Cdo_Message = Nothing Exit Sub EnvoiMsg_err: MsgBox Err.Description, vbInformation, "Envoi Feuille de route" Resume EnvoiMsg_exit End Sub
3stone
Salut,
"flomen" | J'ai trouvé le code ci-dessous qui correspond bien à ce que je veux faire, | cependant il ne fonctionne, je récupère l'erreur: "La Valeur de Configuration | SendUsing est non Valide" . Cette erreur se produit sur .Send
| | Public Sub SendMailCDOFeuilleRoute(adremail As String, LeMsg As String, | nomfich8 As String, nomfichier As String, Nomfich2 As String, _ | Nomfich3 As String, Nomfich4 As String, Nomfich5 As String, Nomfich6 As | String, Nomfich7 As String) | On Error GoTo EnvoiMsg_err | Dim Cdo_Message As Object | Set Cdo_Message = CreateObject("CDO.Message") | With Cdo_Message | .to = adremail | .TextBody = LeMsg | .FROM = """Emetteur"""
.From = '''' serait plus juste.
ou ne pas indiquer le "FROM", il utilisera l' émail défini par défaut.
| .Subject = "Feuille de route" | If Len(Dir(nomfich8)) <> 0 Then .AddAttachment (nomfich8) [...] | .Send | End With
Quel est le client mail que tu as défini ?
Tu peux regarder ceci : http://www.3stone.be/access/articles.php?lng=fr&pg les trois méthodes fonctionnent admirablement.
PS: Et les 3 fonctionnent parfaitement avec WinXp home !
"flomen"
| J'ai trouvé le code ci-dessous qui correspond bien à ce que je veux faire,
| cependant il ne fonctionne, je récupère l'erreur: "La Valeur de Configuration
| SendUsing est non Valide" . Cette erreur se produit sur .Send
|
| Public Sub SendMailCDOFeuilleRoute(adremail As String, LeMsg As String,
| nomfich8 As String, nomfichier As String, Nomfich2 As String, _
| Nomfich3 As String, Nomfich4 As String, Nomfich5 As String, Nomfich6 As
| String, Nomfich7 As String)
| On Error GoTo EnvoiMsg_err
| Dim Cdo_Message As Object
| Set Cdo_Message = CreateObject("CDO.Message")
| With Cdo_Message
| .to = adremail
| .TextBody = LeMsg
| .FROM = """Emetteur""<tourazur@tourazur.com>"
.From = ''tourazur@tourazur.com'' serait plus juste.
ou ne pas indiquer le "FROM", il utilisera l' émail défini par défaut.
| .Subject = "Feuille de route"
| If Len(Dir(nomfich8)) <> 0 Then .AddAttachment (nomfich8)
[...]
| .Send
| End With
Quel est le client mail que tu as défini ?
Tu peux regarder ceci :
http://www.3stone.be/access/articles.php?lng=fr&pg
les trois méthodes fonctionnent admirablement.
PS:
Et les 3 fonctionnent parfaitement avec WinXp home !
"flomen" | J'ai trouvé le code ci-dessous qui correspond bien à ce que je veux faire, | cependant il ne fonctionne, je récupère l'erreur: "La Valeur de Configuration | SendUsing est non Valide" . Cette erreur se produit sur .Send
| | Public Sub SendMailCDOFeuilleRoute(adremail As String, LeMsg As String, | nomfich8 As String, nomfichier As String, Nomfich2 As String, _ | Nomfich3 As String, Nomfich4 As String, Nomfich5 As String, Nomfich6 As | String, Nomfich7 As String) | On Error GoTo EnvoiMsg_err | Dim Cdo_Message As Object | Set Cdo_Message = CreateObject("CDO.Message") | With Cdo_Message | .to = adremail | .TextBody = LeMsg | .FROM = """Emetteur"""
.From = '''' serait plus juste.
ou ne pas indiquer le "FROM", il utilisera l' émail défini par défaut.
| .Subject = "Feuille de route" | If Len(Dir(nomfich8)) <> 0 Then .AddAttachment (nomfich8) [...] | .Send | End With
Quel est le client mail que tu as défini ?
Tu peux regarder ceci : http://www.3stone.be/access/articles.php?lng=fr&pg les trois méthodes fonctionnent admirablement.
PS: Et les 3 fonctionnent parfaitement avec WinXp home !
