Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic CDOSYS, ADODB et windows xp pro sp2

CDOSYS, ADODB et windows xp pro sp2

3 réponses
Avatar
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 r=E9f=E9renc=E9 le projet sur cdosys et adodb mais rien a faire
le code se compile sous windows 2000 mais pas sous xp
Une id=E9e?

merci


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

Dim adodbstream As ADODB.Stream
Set adodbstream =3D New ADODB.Stream
adodbstream.Type =3D ADODB.StreamTypeEnum.adTypeText
adodbstream.Charset =3D "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
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
David Rousset [MS]
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.

a écrit dans le message de news:

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
Avatar
Jacques93
,
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.
Avatar
HMVHQUADMNLB
Merci pour vos réponses
Parfois gënant ces erreurs