Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel pourquoi

pourquoi

3 réponses
Avatar
gilbert
Bonjour

Pouvez-vous me dire pourquoi ces procédures me posent problème que sur
certaines machines et aucun sur d' autres

Sub essai3()
ActiveWorkbook.SendMail Recipients:="moi.ici@wanadoo.fr", Subject:="essai",
ReturnReceipt:=True

End Sub

Sub essai4()
mesEmail = "Essai qui marche "
With ActiveWorkbook
.HasRoutingSlip = True
With .RoutingSlip
.Delivery = xlAllAtOnce 'xlOneAfterAnother
.Recipients = Array("moi.ici@wanadoo.fr")
.Subject = "essai"
.Message = mesEmail
.ReturnWhenDone = False
End With
.Route
End With
End Sub

Sub essai_mailsystem()

Select Case Application.MailSystem
Case xlMAPI
MsgBox "Le Système de courrier est Courrier de Microsoft"
Case xlPowerTalk
MsgBox "Le Système de courrier est PowerTalk"
Case xlNoMailSystem
MsgBox "Aucun système de courrier est installé"
End Select
If IsNull(Application.MailSession) Then
Application.MailLogon
End If
mavar = Application.MailSession
MsgBox "Le N° de session est : " & mavar
End Sub


Merci pour vos reponses

Gilbert
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
RaMA
Bonjour

Verifie dans win.ini tu devrais avoir ceci

[Mail]
MAPI=1
CMC=1
CMCDLLNAME=mapi.dll
CMCDLLNAME32=mapi32.dll
MAPIX=1
MAPIXVER=1.0.0.1

Salutations
RaMa

--
.
"gilbert" a écrit dans le message de
news: ezC$
Bonjour

Pouvez-vous me dire pourquoi ces procédures me posent problème que sur
certaines machines et aucun sur d' autres

Sub essai3()
ActiveWorkbook.SendMail Recipients:="",
Subject:="essai",
ReturnReceipt:=True

End Sub

Sub essai4()
mesEmail = "Essai qui marche "
With ActiveWorkbook
.HasRoutingSlip = True
With .RoutingSlip
.Delivery = xlAllAtOnce 'xlOneAfterAnother
.Recipients = Array("")
.Subject = "essai"
.Message = mesEmail
.ReturnWhenDone = False
End With
.Route
End With
End Sub

Sub essai_mailsystem()

Select Case Application.MailSystem
Case xlMAPI
MsgBox "Le Système de courrier est Courrier de Microsoft"
Case xlPowerTalk
MsgBox "Le Système de courrier est PowerTalk"
Case xlNoMailSystem
MsgBox "Aucun système de courrier est installé"
End Select
If IsNull(Application.MailSession) Then
Application.MailLogon
End If
mavar = Application.MailSession
MsgBox "Le N° de session est : " & mavar
End Sub


Merci pour vos reponses

Gilbert




Avatar
gilbert
Bonjour RaMA

Je vérifie sur mes différentes bécanes

Merci du renseignement

Gilbert


"RaMA" a écrit dans le message de
news:
Bonjour

Verifie dans win.ini tu devrais avoir ceci

[Mail]
MAPI=1
CMC=1
CMCDLLNAME=mapi.dll
CMCDLLNAME32=mapi32.dll
MAPIX=1
MAPIXVER=1.0.0.1

Salutations
RaMa

--
.
"gilbert" a écrit dans le message de
news: ezC$
Bonjour

Pouvez-vous me dire pourquoi ces procédures me posent problème que sur
certaines machines et aucun sur d' autres

Sub essai3()
ActiveWorkbook.SendMail Recipients:="",
Subject:="essai",
ReturnReceipt:=True

End Sub

Sub essai4()
mesEmail = "Essai qui marche "
With ActiveWorkbook
.HasRoutingSlip = True
With .RoutingSlip
.Delivery = xlAllAtOnce 'xlOneAfterAnother
.Recipients = Array("")
.Subject = "essai"
.Message = mesEmail
.ReturnWhenDone = False
End With
.Route
End With
End Sub

Sub essai_mailsystem()

Select Case Application.MailSystem
Case xlMAPI
MsgBox "Le Système de courrier est Courrier de Microsoft"
Case xlPowerTalk
MsgBox "Le Système de courrier est PowerTalk"
Case xlNoMailSystem
MsgBox "Aucun système de courrier est installé"
End Select
If IsNull(Application.MailSession) Then
Application.MailLogon
End If
mavar = Application.MailSession
MsgBox "Le N° de session est : " & mavar
End Sub


Merci pour vos reponses

Gilbert








Avatar
gilbert
Bonjour RaMA

C' est identique et ça ne fonctionne toujours pas

la session sur la machine qui ne fonctionne pas n' est pas créée ou n' a pas
de n° car il n' en ressort pas avec MaiLogon

la machine est sur Windows XP SP1 et Internet explorer et la messagerie sur
Outlook express !

si tu as une autre idée où chercher

Merci

Gilbert

"RaMA" a écrit dans le message de
news:
Bonjour

Verifie dans win.ini tu devrais avoir ceci

[Mail]
MAPI=1
CMC=1
CMCDLLNAME=mapi.dll
CMCDLLNAME32=mapi32.dll
MAPIX=1
MAPIXVER=1.0.0.1

Salutations
RaMa

--
.
"gilbert" a écrit dans le message de
news: ezC$
Bonjour

Pouvez-vous me dire pourquoi ces procédures me posent problème que sur
certaines machines et aucun sur d' autres

Sub essai3()
ActiveWorkbook.SendMail Recipients:="",
Subject:="essai",
ReturnReceipt:=True

End Sub

Sub essai4()
mesEmail = "Essai qui marche "
With ActiveWorkbook
.HasRoutingSlip = True
With .RoutingSlip
.Delivery = xlAllAtOnce 'xlOneAfterAnother
.Recipients = Array("")
.Subject = "essai"
.Message = mesEmail
.ReturnWhenDone = False
End With
.Route
End With
End Sub

Sub essai_mailsystem()

Select Case Application.MailSystem
Case xlMAPI
MsgBox "Le Système de courrier est Courrier de Microsoft"
Case xlPowerTalk
MsgBox "Le Système de courrier est PowerTalk"
Case xlNoMailSystem
MsgBox "Aucun système de courrier est installé"
End Select
If IsNull(Application.MailSession) Then
Application.MailLogon
End If
mavar = Application.MailSession
MsgBox "Le N° de session est : " & mavar
End Sub


Merci pour vos reponses

Gilbert