CDOSYS, ADODB et windows xp pro sp2

Le
HMVHQUADMNLB
Bonjour,

Je tente de compiler le code ci-dessous sous windows xp pro sp2 mais
j'ai une erreur d'objet requis
J'ai bien rfrenc le projet sur cdosys et adodb mais rien a faire
le code se compile sous windows 2000 mais pas sous xp
Une ide?

merci


Private Sub SavePage(ByVal Url As String, ByVal FilePath As String)
Dim iMessage As CDO.Message
Set iMessage = New CDO.Message
iMessage.CreateMHTMLBody Url
'iMessage.CreateMHTMLBody(Url, CDO.CdoMHTMLFlags.cdoSuppressNone, "",
"")

Dim adodbstream As ADODB.Stream
Set adodbstream = New ADODB.Stream
adodbstream.Type = ADODB.StreamTypeEnum.adTypeText
adodbstream.Charset = "US-ASCII"
adodbstream.Open
iMessage.DataSource.SaveToObject Stream, "_Stream"
adodbstream.SaveToFile FilePath,
ADODB.SaveOptionsEnum.adSaveCreateOverWrite
End Sub


Private Sub Form_Load()
SavePage "http://dotnetjunkies.com/weblog/sahilmalik/",
"c:sahilsblog.mht"

End Sub
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
David Rousset [MS]
Le #15503031
Hello,

Change la ligne :

iMessage.DataSource.SaveToObject Stream, "_Stream"

par :

iMessage.DataSource.SaveToObject adodbstream, "_Stream"

et ça devrait mieux marcher. ;-)

Je viens de faire le test avec succès sur un XP Pro SP2.

Bye et bon week-end.
--
David Rousset
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.


Bonjour,

Je tente de compiler le code ci-dessous sous windows xp pro sp2 mais
j'ai une erreur d'objet requis...
J'ai bien référencé le projet sur cdosys et adodb mais rien a faire
le code se compile sous windows 2000 mais pas sous xp
Une idée?

merci


Private Sub SavePage(ByVal Url As String, ByVal FilePath As String)
Dim iMessage As CDO.Message
Set iMessage = New CDO.Message
iMessage.CreateMHTMLBody Url
'iMessage.CreateMHTMLBody(Url, CDO.CdoMHTMLFlags.cdoSuppressNone, "",
"")

Dim adodbstream As ADODB.Stream
Set adodbstream = New ADODB.Stream
adodbstream.Type = ADODB.StreamTypeEnum.adTypeText
adodbstream.Charset = "US-ASCII"
adodbstream.Open
iMessage.DataSource.SaveToObject Stream, "_Stream"
adodbstream.SaveToFile FilePath,
ADODB.SaveOptionsEnum.adSaveCreateOverWrite
End Sub


Private Sub Form_Load()
SavePage "http://dotnetjunkies.com/weblog/sahilmalik/",
"c:sahilsblog.mht"

End Sub
Jacques93
Le #15503011
,
a écrit :
Bonjour,

Je tente de compiler le code ci-dessous sous windows xp pro sp2 mais
j'ai une erreur d'objet requis...
J'ai bien référencé le projet sur cdosys et adodb mais rien a faire
le code se compile sous windows 2000 mais pas sous xp
Une idée?

merci


Private Sub SavePage(ByVal Url As String, ByVal FilePath As String)
Dim iMessage As CDO.Message
Set iMessage = New CDO.Message
iMessage.CreateMHTMLBody Url
'iMessage.CreateMHTMLBody(Url, CDO.CdoMHTMLFlags.cdoSuppressNone, "",
"")

Dim adodbstream As ADODB.Stream
Set adodbstream = New ADODB.Stream
adodbstream.Type = ADODB.StreamTypeEnum.adTypeText
adodbstream.Charset = "US-ASCII"
adodbstream.Open
iMessage.DataSource.SaveToObject Stream, "_Stream"
adodbstream.SaveToFile FilePath,
ADODB.SaveOptionsEnum.adSaveCreateOverWrite
End Sub


Private Sub Form_Load()
SavePage "http://dotnetjunkies.com/weblog/sahilmalik/",
"c:sahilsblog.mht"

End Sub




En complément de la réponse de David Rousset [MS], en ajoutant :

Option Explicit

au début de ton code de feuille, tu verrais tout de suite que Stream est
une variable non définie.

--
Cordialement,

Jacques.
HMVHQUADMNLB
Le #15502461
Merci pour vos réponses
Parfois gënant ces erreurs
Publicité
Poster une réponse
Anonyme