Denis Michon m'a filer une partie du code ci-dessous ( dont je le remercie
bcp !)
( un code qui d'ailleur lui même à pris de Laurent Longre. )
Enfin pour résumé, ça envoie un mail sans attachement,
avec comme corp de message, une plage de cellules avec qq
conditions pour son autorisation.
ça fonctionne très bien. ( avec OExpress comme client mail)
mais parce qu'il y a toujours un "mais"
si je change de messagerie (genre avec un client Novell---> groupe Wise)
il me mets un erreur à la ligne .Send du code avec le message suivant :
Erreur d'éxecution 438
Propriété ou methode non gérée par cet objet.
Ma question est donc, est-ce qu'il manque une DLL ou un truc de ce genre
pour qu'il ouvre ma messagerie ou rajouter ça dans une ligne du code ???
Je précise juste que si j'utilise la commande
"ActiveWorkbook.Sendmail"
pour l'envoi de la feuille en attachement, ça fonctionne très bien
Merci bcp de votre aide, parce que là je flanche.
David
Private Sub CommandButton1_Click()
Dim Msg As String
If Range("B15") = vide Or Range("B17") = vide Or Range("B19") = vide Or
Range("B37") = vide Or Range("B50") = vide Or Range("c60") = vide Or
Range("E10") = vide Or Range("F10") = vide Or Range("C54") = "0" Or
Range("AA31") = "0" Then
MsgBox "Champ obligatoire non saisi"
End If
If Range("AA35") = vide Then
MsgBox "Mettre au moins un N° de téléphone ou de fax avant d'envoyer"
Else
With Worksheets("Rap.panne")
For Each ligne In .Range("AA2:AA26")
Msg = Msg & ligne & vbCrLf
Next
End With
With CreateObject("CDO.Message")
.To = Range("C56")
.BCC = "mymail@myprovider.com"
.Subject = Range("AA1")
.TextBody = Msg
.Send
End With
End If
"ZiG" a écrit dans le message de news: Bonjour Tout le monde,
Denis Michon m'a filer une partie du code ci-dessous ( dont je le remercie bcp !) ( un code qui d'ailleur lui même à pris de Laurent Longre. ) Enfin pour résumé, ça envoie un mail sans attachement, avec comme corp de message, une plage de cellules avec qq conditions pour son autorisation. ça fonctionne très bien. ( avec OExpress comme client mail) mais parce qu'il y a toujours un "mais" si je change de messagerie (genre avec un client Novell---> groupe Wise) il me mets un erreur à la ligne .Send du code avec le message suivant : Erreur d'éxecution 438 Propriété ou methode non gérée par cet objet.
Ma question est donc, est-ce qu'il manque une DLL ou un truc de ce genre pour qu'il ouvre ma messagerie ou rajouter ça dans une ligne du code ???
Je précise juste que si j'utilise la commande
"ActiveWorkbook.Sendmail" pour l'envoi de la feuille en attachement, ça fonctionne très bien Merci bcp de votre aide, parce que là je flanche. David
Private Sub CommandButton1_Click()
Dim Msg As String
If Range("B15") = vide Or Range("B17") = vide Or Range("B19") = vide Or Range("B37") = vide Or Range("B50") = vide Or Range("c60") = vide Or Range("E10") = vide Or Range("F10") = vide Or Range("C54") = "0" Or Range("AA31") = "0" Then MsgBox "Champ obligatoire non saisi" End If If Range("AA35") = vide Then MsgBox "Mettre au moins un N° de téléphone ou de fax avant d'envoyer"
Else
With Worksheets("Rap.panne") For Each ligne In .Range("AA2:AA26") Msg = Msg & ligne & vbCrLf Next End With
With CreateObject("CDO.Message") .To = Range("C56") .BCC = "" .Subject = Range("AA1") .TextBody = Msg .Send End With End If
End Sub
Bonjour Zig,
Tu as peut être un début de solutions là !
Les explications sont écrites en langue anglaise.
J'ai l'équivalent en Chinois... le problème, je le lis mais je ne le comprends pas !
"ZiG" <zig@urbanet.ch> a écrit dans le message de news:3f97ee5b@news.swissonline.ch...
Bonjour Tout le monde,
Denis Michon m'a filer une partie du code ci-dessous ( dont je le remercie
bcp !)
( un code qui d'ailleur lui même à pris de Laurent Longre. )
Enfin pour résumé, ça envoie un mail sans attachement,
avec comme corp de message, une plage de cellules avec qq
conditions pour son autorisation.
ça fonctionne très bien. ( avec OExpress comme client mail)
mais parce qu'il y a toujours un "mais"
si je change de messagerie (genre avec un client Novell---> groupe Wise)
il me mets un erreur à la ligne .Send du code avec le message suivant :
Erreur d'éxecution 438
Propriété ou methode non gérée par cet objet.
Ma question est donc, est-ce qu'il manque une DLL ou un truc de ce genre
pour qu'il ouvre ma messagerie ou rajouter ça dans une ligne du code ???
Je précise juste que si j'utilise la commande
"ActiveWorkbook.Sendmail"
pour l'envoi de la feuille en attachement, ça fonctionne très bien
Merci bcp de votre aide, parce que là je flanche.
David
Private Sub CommandButton1_Click()
Dim Msg As String
If Range("B15") = vide Or Range("B17") = vide Or Range("B19") = vide Or
Range("B37") = vide Or Range("B50") = vide Or Range("c60") = vide Or
Range("E10") = vide Or Range("F10") = vide Or Range("C54") = "0" Or
Range("AA31") = "0" Then
MsgBox "Champ obligatoire non saisi"
End If
If Range("AA35") = vide Then
MsgBox "Mettre au moins un N° de téléphone ou de fax avant d'envoyer"
Else
With Worksheets("Rap.panne")
For Each ligne In .Range("AA2:AA26")
Msg = Msg & ligne & vbCrLf
Next
End With
With CreateObject("CDO.Message")
.To = Range("C56")
.BCC = "mymail@myprovider.com"
.Subject = Range("AA1")
.TextBody = Msg
.Send
End With
End If
"ZiG" a écrit dans le message de news: Bonjour Tout le monde,
Denis Michon m'a filer une partie du code ci-dessous ( dont je le remercie bcp !) ( un code qui d'ailleur lui même à pris de Laurent Longre. ) Enfin pour résumé, ça envoie un mail sans attachement, avec comme corp de message, une plage de cellules avec qq conditions pour son autorisation. ça fonctionne très bien. ( avec OExpress comme client mail) mais parce qu'il y a toujours un "mais" si je change de messagerie (genre avec un client Novell---> groupe Wise) il me mets un erreur à la ligne .Send du code avec le message suivant : Erreur d'éxecution 438 Propriété ou methode non gérée par cet objet.
Ma question est donc, est-ce qu'il manque une DLL ou un truc de ce genre pour qu'il ouvre ma messagerie ou rajouter ça dans une ligne du code ???
Je précise juste que si j'utilise la commande
"ActiveWorkbook.Sendmail" pour l'envoi de la feuille en attachement, ça fonctionne très bien Merci bcp de votre aide, parce que là je flanche. David
Private Sub CommandButton1_Click()
Dim Msg As String
If Range("B15") = vide Or Range("B17") = vide Or Range("B19") = vide Or Range("B37") = vide Or Range("B50") = vide Or Range("c60") = vide Or Range("E10") = vide Or Range("F10") = vide Or Range("C54") = "0" Or Range("AA31") = "0" Then MsgBox "Champ obligatoire non saisi" End If If Range("AA35") = vide Then MsgBox "Mettre au moins un N° de téléphone ou de fax avant d'envoyer"
Else
With Worksheets("Rap.panne") For Each ligne In .Range("AA2:AA26") Msg = Msg & ligne & vbCrLf Next End With
With CreateObject("CDO.Message") .To = Range("C56") .BCC = "" .Subject = Range("AA1") .TextBody = Msg .Send End With End If
End Sub
ZiG
merci .. moi non plus je ne le comprend pas ... pas contre je le lis volontier ... Par contre ça ne m'aide pas vraimant ... Si j'utilise le code suivant
Denis Michon m'a filer une partie du code ci-dessous ( dont je le remercie bcp !) ( un code qui d'ailleur lui même à pris de Laurent Longre. ) Enfin pour résumé, ça envoie un mail sans attachement, avec comme corp de message, une plage de cellules avec qq conditions pour son autorisation. ça fonctionne très bien. ( avec OExpress comme client mail) mais parce qu'il y a toujours un "mais" si je change de messagerie (genre avec un client Novell---> groupe Wise) il me mets un erreur à la ligne .Send du code avec le message suivant : Erreur d'éxecution 438 Propriété ou methode non gérée par cet objet.
Ma question est donc, est-ce qu'il manque une DLL ou un truc de ce genre pour qu'il ouvre ma messagerie ou rajouter ça dans une ligne du code ???
Je précise juste que si j'utilise la commande
"ActiveWorkbook.Sendmail" pour l'envoi de la feuille en attachement, ça fonctionne très bien Merci bcp de votre aide, parce que là je flanche. David
Private Sub CommandButton1_Click()
Dim Msg As String
If Range("B15") = vide Or Range("B17") = vide Or Range("B19") = vide Or Range("B37") = vide Or Range("B50") = vide Or Range("c60") = vide Or Range("E10") = vide Or Range("F10") = vide Or Range("C54") = "0" Or Range("AA31") = "0" Then MsgBox "Champ obligatoire non saisi" End If If Range("AA35") = vide Then MsgBox "Mettre au moins un N° de téléphone ou de fax avant d'envoyer"
Else
With Worksheets("Rap.panne") For Each ligne In .Range("AA2:AA26") Msg = Msg & ligne & vbCrLf Next End With
With CreateObject("CDO.Message") .To = Range("C56") .BCC = "" .Subject = Range("AA1") .TextBody = Msg .Send End With End If
End Sub
merci ..
moi non plus je ne le comprend pas ... pas contre je le lis volontier ...
Par contre ça ne m'aide pas vraimant ...
Si j'utilise le code suivant
"ZiG" <zig@urbanet.ch> a écrit dans le message de
news:3f97ee5b@news.swissonline.ch...
Bonjour Tout le monde,
Denis Michon m'a filer une partie du code ci-dessous ( dont je le remercie
bcp !)
( un code qui d'ailleur lui même à pris de Laurent Longre. )
Enfin pour résumé, ça envoie un mail sans attachement,
avec comme corp de message, une plage de cellules avec qq
conditions pour son autorisation.
ça fonctionne très bien. ( avec OExpress comme client mail)
mais parce qu'il y a toujours un "mais"
si je change de messagerie (genre avec un client Novell---> groupe Wise)
il me mets un erreur à la ligne .Send du code avec le message suivant :
Erreur d'éxecution 438
Propriété ou methode non gérée par cet objet.
Ma question est donc, est-ce qu'il manque une DLL ou un truc de ce genre
pour qu'il ouvre ma messagerie ou rajouter ça dans une ligne du code ???
Je précise juste que si j'utilise la commande
"ActiveWorkbook.Sendmail"
pour l'envoi de la feuille en attachement, ça fonctionne très bien
Merci bcp de votre aide, parce que là je flanche.
David
Private Sub CommandButton1_Click()
Dim Msg As String
If Range("B15") = vide Or Range("B17") = vide Or Range("B19") = vide Or
Range("B37") = vide Or Range("B50") = vide Or Range("c60") = vide Or
Range("E10") = vide Or Range("F10") = vide Or Range("C54") = "0" Or
Range("AA31") = "0" Then
MsgBox "Champ obligatoire non saisi"
End If
If Range("AA35") = vide Then
MsgBox "Mettre au moins un N° de téléphone ou de fax avant d'envoyer"
Else
With Worksheets("Rap.panne")
For Each ligne In .Range("AA2:AA26")
Msg = Msg & ligne & vbCrLf
Next
End With
With CreateObject("CDO.Message")
.To = Range("C56")
.BCC = "mymail@myprovider.com"
.Subject = Range("AA1")
.TextBody = Msg
.Send
End With
End If
merci .. moi non plus je ne le comprend pas ... pas contre je le lis volontier ... Par contre ça ne m'aide pas vraimant ... Si j'utilise le code suivant
Denis Michon m'a filer une partie du code ci-dessous ( dont je le remercie bcp !) ( un code qui d'ailleur lui même à pris de Laurent Longre. ) Enfin pour résumé, ça envoie un mail sans attachement, avec comme corp de message, une plage de cellules avec qq conditions pour son autorisation. ça fonctionne très bien. ( avec OExpress comme client mail) mais parce qu'il y a toujours un "mais" si je change de messagerie (genre avec un client Novell---> groupe Wise) il me mets un erreur à la ligne .Send du code avec le message suivant : Erreur d'éxecution 438 Propriété ou methode non gérée par cet objet.
Ma question est donc, est-ce qu'il manque une DLL ou un truc de ce genre pour qu'il ouvre ma messagerie ou rajouter ça dans une ligne du code ???
Je précise juste que si j'utilise la commande
"ActiveWorkbook.Sendmail" pour l'envoi de la feuille en attachement, ça fonctionne très bien Merci bcp de votre aide, parce que là je flanche. David
Private Sub CommandButton1_Click()
Dim Msg As String
If Range("B15") = vide Or Range("B17") = vide Or Range("B19") = vide Or Range("B37") = vide Or Range("B50") = vide Or Range("c60") = vide Or Range("E10") = vide Or Range("F10") = vide Or Range("C54") = "0" Or Range("AA31") = "0" Then MsgBox "Champ obligatoire non saisi" End If If Range("AA35") = vide Then MsgBox "Mettre au moins un N° de téléphone ou de fax avant d'envoyer"
Else
With Worksheets("Rap.panne") For Each ligne In .Range("AA2:AA26") Msg = Msg & ligne & vbCrLf Next End With
With CreateObject("CDO.Message") .To = Range("C56") .BCC = "" .Subject = Range("AA1") .TextBody = Msg .Send End With End If
