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 mail et Excel

mail et Excel

7 réponses
Avatar
Vincent
Bonjour
J'ai un début de proc qui fonctionne avec 2 textbox
Mais est-il possible d'avoir un message standard du style " Veuillez trouver
ci-joint..."
Merci beaucoup
Vincent
Application.Dialogs(xlDialogSendMail).Show Adresse_destinataire + ";" &
Adresse_perso.Text, NomFeuil2
Signaler un problème avec ce contenu

7 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
FxM
Bonsoir,

Jette un oeil sur le fil initié à 13h53 (heure de Paris) par Gilbert et
dont le titre est "pourquoi". Il y a aussi quelques exemples sur
Excelabo. http://www.excelabo.net

Juste pour info : mon logiciel anti-spam adore ce genre de phrases
génériques et vire sans vergogne les messages associés.

@+
FxM



Bonjour
J'ai un début de proc qui fonctionne avec 2 textbox
Mais est-il possible d'avoir un message standard du style " Veuillez trouver
ci-joint..."
Merci beaucoup
Vincent
Application.Dialogs(xlDialogSendMail).Show Adresse_destinataire + ";" &
Adresse_perso.Text, NomFeuil2




Avatar
Vincent
Bonjour François, je suis allé jeter un d'oeil sur excelabo.net
c'est là que j'ai récupéré une partie de la proc,
j'ai essayé d'intégrer une partie de la proc de Gilbert, mais sans succès
;-(
Merci quand même
Vincent


"FxM" a écrit dans le message de news:

Bonsoir,

Jette un oeil sur le fil initié à 13h53 (heure de Paris) par Gilbert et
dont le titre est "pourquoi". Il y a aussi quelques exemples sur Excelabo.
http://www.excelabo.net

Juste pour info : mon logiciel anti-spam adore ce genre de phrases
génériques et vire sans vergogne les messages associés.

@+
FxM



Bonjour
J'ai un début de proc qui fonctionne avec 2 textbox
Mais est-il possible d'avoir un message standard du style " Veuillez
trouver ci-joint..."
Merci beaucoup
Vincent
Application.Dialogs(xlDialogSendMail).Show Adresse_destinataire + ";" &
Adresse_perso.Text, NomFeuil2





Avatar
gilbert
Bonjour

Je viens de voir que comme moi tu essaies d' utiliser différentes procédures
d' envoi

peux-tu me dire si mon essai4 fonctionne chez toi?

car sur certains ordinateurs sur lesquels j' ai fait des essais ça
fonctionne
et sur d' autre ça bug sur le ".HasRoutingSlip"

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


merci

Gilbert

"Vincent" a écrit dans le message de
news:
Bonjour François, je suis allé jeter un d'oeil sur excelabo.net
c'est là que j'ai récupéré une partie de la proc,
j'ai essayé d'intégrer une partie de la proc de Gilbert, mais sans succès
;-(
Merci quand même
Vincent


"FxM" a écrit dans le message de news:

Bonsoir,

Jette un oeil sur le fil initié à 13h53 (heure de Paris) par Gilbert et
dont le titre est "pourquoi". Il y a aussi quelques exemples sur
Excelabo.


http://www.excelabo.net

Juste pour info : mon logiciel anti-spam adore ce genre de phrases
génériques et vire sans vergogne les messages associés.

@+
FxM



Bonjour
J'ai un début de proc qui fonctionne avec 2 textbox
Mais est-il possible d'avoir un message standard du style " Veuillez
trouver ci-joint..."
Merci beaucoup
Vincent
Application.Dialogs(xlDialogSendMail).Show Adresse_destinataire + ";"
&



Adresse_perso.Text, NomFeuil2








Avatar
Vincent
Bonjour Gilbert, chez moi cela fonctionne très bien Ex 97 et Win XP
@ +
Vincent



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

Je viens de voir que comme moi tu essaies d' utiliser différentes
procédures
d' envoi

peux-tu me dire si mon essai4 fonctionne chez toi?

car sur certains ordinateurs sur lesquels j' ai fait des essais ça
fonctionne
et sur d' autre ça bug sur le ".HasRoutingSlip"

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


merci

Gilbert

"Vincent" a écrit dans le message de
news:
Bonjour François, je suis allé jeter un d'oeil sur excelabo.net
c'est là que j'ai récupéré une partie de la proc,
j'ai essayé d'intégrer une partie de la proc de Gilbert, mais sans succès
;-(
Merci quand même
Vincent


"FxM" a écrit dans le message de news:

Bonsoir,

Jette un oeil sur le fil initié à 13h53 (heure de Paris) par Gilbert et
dont le titre est "pourquoi". Il y a aussi quelques exemples sur
Excelabo.


http://www.excelabo.net

Juste pour info : mon logiciel anti-spam adore ce genre de phrases
génériques et vire sans vergogne les messages associés.

@+
FxM



Bonjour
J'ai un début de proc qui fonctionne avec 2 textbox
Mais est-il possible d'avoir un message standard du style " Veuillez
trouver ci-joint..."
Merci beaucoup
Vincent
Application.Dialogs(xlDialogSendMail).Show Adresse_destinataire + ";"
&



Adresse_perso.Text, NomFeuil2












Avatar
gilbert
Merci Vincent

J' emploie cette procédure pour un retour de commande et j' ai un client qui
n' arrive pas à me retourner ce bon de commande

disons qu' il y arrive en manuel mais pas en automatique et le but recherché
et que cela fonctionne sur toutes sortes de configurations.

Donc cela me conforte un peu sur mes positions en disant que le problème
vient de mon client et non de cette procédure.

Il faut donc chercher au niveau de sa configuration mais cela et une autre
histoire ;-)))

Merci encore

Gilbert

"Vincent" a écrit dans le message de
news:
Bonjour Gilbert, chez moi cela fonctionne très bien Ex 97 et Win XP
@ +
Vincent



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

Je viens de voir que comme moi tu essaies d' utiliser différentes
procédures
d' envoi

peux-tu me dire si mon essai4 fonctionne chez toi?

car sur certains ordinateurs sur lesquels j' ai fait des essais ça
fonctionne
et sur d' autre ça bug sur le ".HasRoutingSlip"

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


merci

Gilbert

"Vincent" a écrit dans le message de
news:
Bonjour François, je suis allé jeter un d'oeil sur excelabo.net
c'est là que j'ai récupéré une partie de la proc,
j'ai essayé d'intégrer une partie de la proc de Gilbert, mais sans
succès



;-(
Merci quand même
Vincent


"FxM" a écrit dans le message de news:

Bonsoir,

Jette un oeil sur le fil initié à 13h53 (heure de Paris) par Gilbert
et




dont le titre est "pourquoi". Il y a aussi quelques exemples sur
Excelabo.


http://www.excelabo.net

Juste pour info : mon logiciel anti-spam adore ce genre de phrases
génériques et vire sans vergogne les messages associés.

@+
FxM



Bonjour
J'ai un début de proc qui fonctionne avec 2 textbox
Mais est-il possible d'avoir un message standard du style " Veuillez
trouver ci-joint..."
Merci beaucoup
Vincent
Application.Dialogs(xlDialogSendMail).Show Adresse_destinataire +
";"





&
Adresse_perso.Text, NomFeuil2
















Avatar
FxM
Bonsoir,

Plantage pour essai4 sous Win98SE, Excel 2k & Thunderbird 0.8.
Les autres semblent passer.

@+
FxM


Merci Vincent

J' emploie cette procédure pour un retour de commande et j' ai un client qui
n' arrive pas à me retourner ce bon de commande

disons qu' il y arrive en manuel mais pas en automatique et le but recherché
et que cela fonctionne sur toutes sortes de configurations.

Donc cela me conforte un peu sur mes positions en disant que le problème
vient de mon client et non de cette procédure.

Il faut donc chercher au niveau de sa configuration mais cela et une autre
histoire ;-)))

Merci encore

Gilbert

"Vincent" a écrit dans le message de
news:

Bonjour Gilbert, chez moi cela fonctionne très bien Ex 97 et Win XP
@ +
Vincent



"gilbert" a écrit dans le message de
news:

Bonjour

Je viens de voir que comme moi tu essaies d' utiliser différentes
procédures
d' envoi

peux-tu me dire si mon essai4 fonctionne chez toi?

car sur certains ordinateurs sur lesquels j' ai fait des essais ça
fonctionne
et sur d' autre ça bug sur le ".HasRoutingSlip"

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


merci

Gilbert

"Vincent" a écrit dans le message de
news:

Bonjour François, je suis allé jeter un d'oeil sur excelabo.net
c'est là que j'ai récupéré une partie de la proc,
j'ai essayé d'intégrer une partie de la proc de Gilbert, mais sans




succès

;-(
Merci quand même
Vincent


"FxM" a écrit dans le message de news:


Bonsoir,

Jette un oeil sur le fil initié à 13h53 (heure de Paris) par Gilbert





et

dont le titre est "pourquoi". Il y a aussi quelques exemples sur



Excelabo.

http://www.excelabo.net

Juste pour info : mon logiciel anti-spam adore ce genre de phrases
génériques et vire sans vergogne les messages associés.

@+
FxM




Bonjour
J'ai un début de proc qui fonctionne avec 2 textbox
Mais est-il possible d'avoir un message standard du style " Veuillez
trouver ci-joint..."
Merci beaucoup
Vincent
Application.Dialogs(xlDialogSendMail).Show Adresse_destinataire +






";"

&

Adresse_perso.Text, NomFeuil2


















Avatar
gilbert
Voila le pourquoi de ma question "pourquoi" sur le premier fil

quel est le n° de l' erreur est-ce une 1004

disant que l' erreur à été provoquée par ".HasRoutingSlip"

ou autre chose ??

merci de ta réponse.

Gilbert

"FxM" a écrit dans le message de
news:
Bonsoir,

Plantage pour essai4 sous Win98SE, Excel 2k & Thunderbird 0.8.
Les autres semblent passer.

@+
FxM


Merci Vincent

J' emploie cette procédure pour un retour de commande et j' ai un client
qui


n' arrive pas à me retourner ce bon de commande

disons qu' il y arrive en manuel mais pas en automatique et le but
recherché


et que cela fonctionne sur toutes sortes de configurations.

Donc cela me conforte un peu sur mes positions en disant que le problème
vient de mon client et non de cette procédure.

Il faut donc chercher au niveau de sa configuration mais cela et une
autre


histoire ;-)))

Merci encore

Gilbert

"Vincent" a écrit dans le message de
news:

Bonjour Gilbert, chez moi cela fonctionne très bien Ex 97 et Win XP
@ +
Vincent



"gilbert" a écrit dans le message de
news:

Bonjour

Je viens de voir que comme moi tu essaies d' utiliser différentes
procédures
d' envoi

peux-tu me dire si mon essai4 fonctionne chez toi?

car sur certains ordinateurs sur lesquels j' ai fait des essais ça
fonctionne
et sur d' autre ça bug sur le ".HasRoutingSlip"

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


merci

Gilbert

"Vincent" a écrit dans le message de
news:

Bonjour François, je suis allé jeter un d'oeil sur excelabo.net
c'est là que j'ai récupéré une partie de la proc,
j'ai essayé d'intégrer une partie de la proc de Gilbert, mais sans




succès

;-(
Merci quand même
Vincent


"FxM" a écrit dans le message de news:


Bonsoir,

Jette un oeil sur le fil initié à 13h53 (heure de Paris) par Gilbert





et

dont le titre est "pourquoi". Il y a aussi quelques exemples sur



Excelabo.

http://www.excelabo.net

Juste pour info : mon logiciel anti-spam adore ce genre de phrases
génériques et vire sans vergogne les messages associés.

@+
FxM




Bonjour
J'ai un début de proc qui fonctionne avec 2 textbox
Mais est-il possible d'avoir un message standard du style " Veuillez
trouver ci-joint..."
Merci beaucoup
Vincent
Application.Dialogs(xlDialogSendMail).Show Adresse_destinataire +






";"

&

Adresse_perso.Text, NomFeuil2