'Je désir automatiser par Visual Basic l'envoi d'une Sélection d'une feuille
de travail Excel comme corps d'un mail en html (non pas en pièce jointe) à
une adresse avec un objet.
'Manuellement, par le bouton 'Message électronique' de la barre de commande,
c'est parfait
'Mais par Visual Basic, ça coince
'Si on décare Public var As MsoEnvelope sur la Feuil, puis set var =
Application.ActiveSheet.MailEnvelope on obtient la même erreur
'L'exemple de l'aide sur EnvelopeShow ne marche pas non plus
Qu'ai je oublié ? Faut-il sortir du cadre
?, mais où
Sub EnvoiMail(ByVal AdresseMail As String, ObjetMail As String)
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
Denis Michon
Bonjour ,
Voici un excellent exemple d'un code source de Microsoft :
adresse : http://support.microsoft.com/?kbid6644
'--------------------------------- Sub Send_Range()
Dim objEnv As MsoEnvelope
' First select the range of cells on the active worksheet. ' ActiveSheet.Range("A1", "B5").Select ' ' Set current workbook to show the envelope. ' ThisWorkbook.EnvelopeVisible = True ' ' Set objEnv to the Office envelope object. ' Set objEnv = ActiveSheet.MailEnvelope ' ' Set the optional introduction field thats adds ' some header text to the email body. It also sets ' the To and Subject lines. Finally the message ' is sent. ' With objEnv .Introduction = "This is a sample worksheet." .Item.To = "" .Item.Subject = "Toto est malade" .Item.Send End With End Sub '---------------------------------
Le seul problème c'est que cela ne fonctionne pas comme ces serveurs !!!
Salutations!
"YACHT PORT TOULON" a écrit dans le message de news: 'Mes versions: EXCEL 2002 SP-2, VISUAL BASIC 6.3
'Je désir automatiser par Visual Basic l'envoi d'une Sélection d'une feuille de travail Excel comme corps d'un mail en html (non pas en pièce jointe) à une adresse avec un objet.
'Manuellement, par le bouton 'Message électronique' de la barre de commande, c'est parfait
'Mais par Visual Basic, ça coince
'Si on décare Public var As MsoEnvelope sur la Feuil, puis set var Application.ActiveSheet.MailEnvelope on obtient la même erreur
'L'exemple de l'aide sur EnvelopeShow ne marche pas non plus
Qu'ai je oublié ? Faut-il sortir du cadre ?, mais où
Sub EnvoiMail(ByVal AdresseMail As String, ObjetMail As String)
With Application.ActiveSheet.MailEnvelope 'ça coince
'****Erreur d'execution 430
'****La classe ne gère pas Automation ou l'interface attendue
'l'aide sur MailEvelope ou sur MsoEnvelope ne renseigne pas
.Introduction = "Bonjour, Dites-nous ce que vous en pensez"
.Item.Recipients.Add AdresseMail
.Item.Subject = ObjetMail
.Item.send
End With
ThisWorkbook.EnvelopeVisible = False
End Sub
Bonjour ,
Voici un excellent exemple d'un code source de Microsoft :
adresse : http://support.microsoft.com/?kbid6644
'---------------------------------
Sub Send_Range()
Dim objEnv As MsoEnvelope
' First select the range of cells on the active worksheet.
'
ActiveSheet.Range("A1", "B5").Select
'
' Set current workbook to show the envelope.
'
ThisWorkbook.EnvelopeVisible = True
'
' Set objEnv to the Office envelope object.
'
Set objEnv = ActiveSheet.MailEnvelope
'
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
'
With objEnv
.Introduction = "This is a sample worksheet."
.Item.To = "Destinataire@Fournisseur"
.Item.Subject = "Toto est malade"
.Item.Send
End With
End Sub
'---------------------------------
Le seul problème c'est que cela ne fonctionne pas comme ces serveurs !!!
Salutations!
"YACHT PORT TOULON" <adjeanneautoulon@wanadoo.fr> a écrit dans le message de
news:eHe5SRKiDHA.1536@TK2MSFTNGP12.phx.gbl...
'Mes versions: EXCEL 2002 SP-2, VISUAL BASIC 6.3
'Je désir automatiser par Visual Basic l'envoi d'une Sélection d'une feuille
de travail Excel comme corps d'un mail en html (non pas en pièce jointe) à
une adresse avec un objet.
'Manuellement, par le bouton 'Message électronique' de la barre de commande,
c'est parfait
'Mais par Visual Basic, ça coince
'Si on décare Public var As MsoEnvelope sur la Feuil, puis set var Application.ActiveSheet.MailEnvelope on obtient la même erreur
'L'exemple de l'aide sur EnvelopeShow ne marche pas non plus
Qu'ai je oublié ? Faut-il sortir du cadre
?, mais où
Sub EnvoiMail(ByVal AdresseMail As String, ObjetMail As String)
Voici un excellent exemple d'un code source de Microsoft :
adresse : http://support.microsoft.com/?kbid6644
'--------------------------------- Sub Send_Range()
Dim objEnv As MsoEnvelope
' First select the range of cells on the active worksheet. ' ActiveSheet.Range("A1", "B5").Select ' ' Set current workbook to show the envelope. ' ThisWorkbook.EnvelopeVisible = True ' ' Set objEnv to the Office envelope object. ' Set objEnv = ActiveSheet.MailEnvelope ' ' Set the optional introduction field thats adds ' some header text to the email body. It also sets ' the To and Subject lines. Finally the message ' is sent. ' With objEnv .Introduction = "This is a sample worksheet." .Item.To = "" .Item.Subject = "Toto est malade" .Item.Send End With End Sub '---------------------------------
Le seul problème c'est que cela ne fonctionne pas comme ces serveurs !!!
Salutations!
"YACHT PORT TOULON" a écrit dans le message de news: 'Mes versions: EXCEL 2002 SP-2, VISUAL BASIC 6.3
'Je désir automatiser par Visual Basic l'envoi d'une Sélection d'une feuille de travail Excel comme corps d'un mail en html (non pas en pièce jointe) à une adresse avec un objet.
'Manuellement, par le bouton 'Message électronique' de la barre de commande, c'est parfait
'Mais par Visual Basic, ça coince
'Si on décare Public var As MsoEnvelope sur la Feuil, puis set var Application.ActiveSheet.MailEnvelope on obtient la même erreur
'L'exemple de l'aide sur EnvelopeShow ne marche pas non plus
Qu'ai je oublié ? Faut-il sortir du cadre ?, mais où
Sub EnvoiMail(ByVal AdresseMail As String, ObjetMail As String)
With Application.ActiveSheet.MailEnvelope 'ça coince
'****Erreur d'execution 430
'****La classe ne gère pas Automation ou l'interface attendue
'l'aide sur MailEvelope ou sur MsoEnvelope ne renseigne pas
.Introduction = "Bonjour, Dites-nous ce que vous en pensez"
.Item.Recipients.Add AdresseMail
.Item.Subject = ObjetMail
.Item.send
End With
ThisWorkbook.EnvelopeVisible = False
End Sub
YACHT PORT TOULON
Bonjour à tous,
Ton exemple, Denis est presque le même que le mien trouvé dans l'aide avec MsoEnvelope ça coince à Set objEnv = ActiveSheet.MailEnvelope avec l'erreur 430: La classe ne gère pas Automation ou l'interface attendue Recherche dans les registres, pas de MailEnvelope, des MsoEnvelope....et quelques chose Peut-être n'ai-je pas les bonnes DLL ou OLB, mais lesquelles Le bouton "Message électronique" marche parfait avec OutLook Express, peut-être qu'avec MsoEnvelope ce n'est pas le cas
Bon courage
Edgar (aide gare) de Toulon
"Denis Michon" a écrit dans le message de news:AC_eb.94435$
Bonjour ,
Voici un excellent exemple d'un code source de Microsoft :
adresse : http://support.microsoft.com/?kbid6644
'--------------------------------- Sub Send_Range()
Dim objEnv As MsoEnvelope
' First select the range of cells on the active worksheet. ' ActiveSheet.Range("A1", "B5").Select ' ' Set current workbook to show the envelope. ' ThisWorkbook.EnvelopeVisible = True ' ' Set objEnv to the Office envelope object. ' Set objEnv = ActiveSheet.MailEnvelope ' ' Set the optional introduction field thats adds ' some header text to the email body. It also sets ' the To and Subject lines. Finally the message ' is sent. ' With objEnv .Introduction = "This is a sample worksheet." .Item.To = "" .Item.Subject = "Toto est malade" .Item.Send End With End Sub '---------------------------------
Le seul problème c'est que cela ne fonctionne pas comme ces serveurs !!!
'****La classe ne gère pas Automation ou l'interface attendue
'l'aide sur MailEvelope ou sur MsoEnvelope ne renseigne pas
.Introduction = "Bonjour, Dites-nous ce que vous en pensez"
.Item.Recipients.Add AdresseMail
.Item.Subject = ObjetMail
.Item.send
End With
ThisWorkbook.EnvelopeVisible = False
End Sub
Bonjour à tous,
Ton exemple, Denis est presque le même que le mien trouvé dans l'aide avec
MsoEnvelope
ça coince à Set objEnv = ActiveSheet.MailEnvelope avec l'erreur 430: La
classe ne gère pas Automation ou l'interface attendue
Recherche dans les registres, pas de MailEnvelope, des MsoEnvelope....et
quelques chose
Peut-être n'ai-je pas les bonnes DLL ou OLB, mais lesquelles
Le bouton "Message électronique" marche parfait avec OutLook Express,
peut-être qu'avec MsoEnvelope ce n'est pas le cas
Bon courage
Edgar (aide gare) de Toulon
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:AC_eb.94435$C92.25486@charlie.risq.qc.ca...
Bonjour ,
Voici un excellent exemple d'un code source de Microsoft :
adresse : http://support.microsoft.com/?kbid6644
'---------------------------------
Sub Send_Range()
Dim objEnv As MsoEnvelope
' First select the range of cells on the active worksheet.
'
ActiveSheet.Range("A1", "B5").Select
'
' Set current workbook to show the envelope.
'
ThisWorkbook.EnvelopeVisible = True
'
' Set objEnv to the Office envelope object.
'
Set objEnv = ActiveSheet.MailEnvelope
'
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
'
With objEnv
.Introduction = "This is a sample worksheet."
.Item.To = "Destinataire@Fournisseur"
.Item.Subject = "Toto est malade"
.Item.Send
End With
End Sub
'---------------------------------
Le seul problème c'est que cela ne fonctionne pas comme ces serveurs !!!
Salutations!
"YACHT PORT TOULON" <adjeanneautoulon@wanadoo.fr> a écrit dans le message
de
Ton exemple, Denis est presque le même que le mien trouvé dans l'aide avec MsoEnvelope ça coince à Set objEnv = ActiveSheet.MailEnvelope avec l'erreur 430: La classe ne gère pas Automation ou l'interface attendue Recherche dans les registres, pas de MailEnvelope, des MsoEnvelope....et quelques chose Peut-être n'ai-je pas les bonnes DLL ou OLB, mais lesquelles Le bouton "Message électronique" marche parfait avec OutLook Express, peut-être qu'avec MsoEnvelope ce n'est pas le cas
Bon courage
Edgar (aide gare) de Toulon
"Denis Michon" a écrit dans le message de news:AC_eb.94435$
Bonjour ,
Voici un excellent exemple d'un code source de Microsoft :
adresse : http://support.microsoft.com/?kbid6644
'--------------------------------- Sub Send_Range()
Dim objEnv As MsoEnvelope
' First select the range of cells on the active worksheet. ' ActiveSheet.Range("A1", "B5").Select ' ' Set current workbook to show the envelope. ' ThisWorkbook.EnvelopeVisible = True ' ' Set objEnv to the Office envelope object. ' Set objEnv = ActiveSheet.MailEnvelope ' ' Set the optional introduction field thats adds ' some header text to the email body. It also sets ' the To and Subject lines. Finally the message ' is sent. ' With objEnv .Introduction = "This is a sample worksheet." .Item.To = "" .Item.Subject = "Toto est malade" .Item.Send End With End Sub '---------------------------------
Le seul problème c'est que cela ne fonctionne pas comme ces serveurs !!!
