j'ai un programme vb qui envoie un message message email.
C=E0 marche en window98 mais en window2000,j'ai une erreur
sur l'ouverture d'outolook : Le serveur distant n'existe=20
pas ou n'est pas disponible.
Que faire?
Merci.
Mon code est : Ouverture de outlook
Set ns =3D ol.GetNamespace("MAPI")
ns.Logon "", "", False, False
Set myolapp =3D CreateObject("Outlook.Application")
=20
'----------------
'Cr=E9ation d'un message
'----------------
Set myitem =3D myolapp.CreateItem(olMailItem)
=20
myitem.To =3D MailAdresse
myitem.Body =3D MailMessage
myitem.Subject =3D MailObjet
myitem.Send
Set myitem =3D Nothing
Set myolapp =3D Nothing
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
David Rousset
Bonjour,
Quelles questions en vrac :
- Est-ce les mêmes versions d'Outlook installés sur Windows 98 et Windows 2000 ? - Outlook fonctionne-t-il correctement de manière indépendante ? La connexion est-elle correctement configurée vers le serveur Exchange ? - ce code fonctionne-t-il en VB ou en Macro Outlook ?
En effet, pour la dernière question, je ne comprends pas la logique de votre code. Vous récupérez le namespace MAPI à partir de quel objet ? Pourquoi ensuite créer à nouveau l'objet "Outlook.Application" ?
Bye,
-- 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.
"" wrote in message news:039401c396ee$305cd940$ Bonjour,
j'ai un programme vb qui envoie un message message email. Cà marche en window98 mais en window2000,j'ai une erreur sur l'ouverture d'outolook : Le serveur distant n'existe pas ou n'est pas disponible.
Que faire? Merci.
Mon code est : Ouverture de outlook Set ns = ol.GetNamespace("MAPI") ns.Logon "", "", False, False Set myolapp = CreateObject("Outlook.Application")
'---------------- 'Création d'un message '---------------- Set myitem = myolapp.CreateItem(olMailItem)
myitem.To = MailAdresse myitem.Body = MailMessage myitem.Subject = MailObjet myitem.Send Set myitem = Nothing Set myolapp = Nothing
ns.Logoff Set ns = Nothing
Bonjour,
Quelles questions en vrac :
- Est-ce les mêmes versions d'Outlook installés sur Windows 98 et
Windows 2000 ?
- Outlook fonctionne-t-il correctement de manière indépendante ? La
connexion est-elle correctement configurée vers le serveur Exchange ?
- ce code fonctionne-t-il en VB ou en Macro Outlook ?
En effet, pour la dernière question, je ne comprends pas la logique de
votre code. Vous récupérez le namespace MAPI à partir de quel objet ?
Pourquoi ensuite créer à nouveau l'objet "Outlook.Application" ?
Bye,
--
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.
"Lio42@free.fr" <anonymous@discussions.microsoft.com> wrote in message
news:039401c396ee$305cd940$a001280a@phx.gbl...
Bonjour,
j'ai un programme vb qui envoie un message message email.
Cà marche en window98 mais en window2000,j'ai une erreur
sur l'ouverture d'outolook : Le serveur distant n'existe
pas ou n'est pas disponible.
Que faire?
Merci.
Mon code est : Ouverture de outlook
Set ns = ol.GetNamespace("MAPI")
ns.Logon "", "", False, False
Set myolapp = CreateObject("Outlook.Application")
'----------------
'Création d'un message
'----------------
Set myitem = myolapp.CreateItem(olMailItem)
myitem.To = MailAdresse
myitem.Body = MailMessage
myitem.Subject = MailObjet
myitem.Send
Set myitem = Nothing
Set myolapp = Nothing
- Est-ce les mêmes versions d'Outlook installés sur Windows 98 et Windows 2000 ? - Outlook fonctionne-t-il correctement de manière indépendante ? La connexion est-elle correctement configurée vers le serveur Exchange ? - ce code fonctionne-t-il en VB ou en Macro Outlook ?
En effet, pour la dernière question, je ne comprends pas la logique de votre code. Vous récupérez le namespace MAPI à partir de quel objet ? Pourquoi ensuite créer à nouveau l'objet "Outlook.Application" ?
Bye,
-- 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.
"" wrote in message news:039401c396ee$305cd940$ Bonjour,
j'ai un programme vb qui envoie un message message email. Cà marche en window98 mais en window2000,j'ai une erreur sur l'ouverture d'outolook : Le serveur distant n'existe pas ou n'est pas disponible.
Que faire? Merci.
Mon code est : Ouverture de outlook Set ns = ol.GetNamespace("MAPI") ns.Logon "", "", False, False Set myolapp = CreateObject("Outlook.Application")
'---------------- 'Création d'un message '---------------- Set myitem = myolapp.CreateItem(olMailItem)
myitem.To = MailAdresse myitem.Body = MailMessage myitem.Subject = MailObjet myitem.Send Set myitem = Nothing Set myolapp = Nothing
