OVH Cloud OVH Cloud

Je reviens sur une problematique non résolue ...

2 réponses
Avatar
Sylvie LAURENT
La petite Sylvie toujours présente ...(pour pas dire Ch...te !!!)

Merci pour m'avoir aidé sur mon code précédent, mais il reste un mystère que
je ne trouve dans aucune documentation:

Après: Application.Dialogs(xlDialogSendMail).Show

que
faut t'il ajouter à ma macro pour mettre un texte dans l'email
automatiquement généré, pour pouvoir y inscrire un texte qui ira dans le
corps du message type"Bonjour, merci de trouver ci inclus notre commande du
xx", ainsi que l'adresse du destinataire qui serait caché en A1 sur ma
feuille ??

Je sais que c'est possible avec Outlook, mais au bureau nous n'avons que OE
(version6) mais quand même, comment faire est ce possible ou pas ??

Un grand merci à vous pour vos conseils et surtout votre temps..

Bises

Sylvie
PS: Qui sera le plus fort ?? sur cette question ??

2 réponses

Avatar
gilbert
Chère Sylvie

Essaie ceci

Sub envoi()
ActiveWorkbook.SendMail Recipients:="adresse.clients@ wanadoo.fr"
End Sub

ceci permet d'envoyer ton classeur actif

@++++

Gilbert

"Sylvie LAURENT" a écrit dans le message de
news:
La petite Sylvie toujours présente ...(pour pas dire Ch...te !!!)

Merci pour m'avoir aidé sur mon code précédent, mais il reste un mystère
que

je ne trouve dans aucune documentation:

Après: Application.Dialogs(xlDialogSendMail).Show

que
faut t'il ajouter à ma macro pour mettre un texte dans l'email
automatiquement généré, pour pouvoir y inscrire un texte qui ira dans le
corps du message type"Bonjour, merci de trouver ci inclus notre commande
du

xx", ainsi que l'adresse du destinataire qui serait caché en A1 sur ma
feuille ??

Je sais que c'est possible avec Outlook, mais au bureau nous n'avons que
OE

(version6) mais quand même, comment faire est ce possible ou pas ??

Un grand merci à vous pour vos conseils et surtout votre temps..

Bises

Sylvie
PS: Qui sera le plus fort ?? sur cette question ??




Avatar
gilbert
Chère Sylvie

Suite ou cela
Sub envoi()
Application.DisplayAlerts = False
Sheets("Client 1").Select
ActiveWorkbook.SendMail "", Subject:="Votre document
xls", ReturnReceipt:=True
Application.DisplayAlerts = True
End Sub

@+++

Gilbert

"Sylvie LAURENT" a écrit dans le message de
news:
La petite Sylvie toujours présente ...(pour pas dire Ch...te !!!)

Merci pour m'avoir aidé sur mon code précédent, mais il reste un mystère
que

je ne trouve dans aucune documentation:

Après: Application.Dialogs(xlDialogSendMail).Show

que
faut t'il ajouter à ma macro pour mettre un texte dans l'email
automatiquement généré, pour pouvoir y inscrire un texte qui ira dans le
corps du message type"Bonjour, merci de trouver ci inclus notre commande
du

xx", ainsi que l'adresse du destinataire qui serait caché en A1 sur ma
feuille ??

Je sais que c'est possible avec Outlook, mais au bureau nous n'avons que
OE

(version6) mais quand même, comment faire est ce possible ou pas ??

Un grand merci à vous pour vos conseils et surtout votre temps..

Bises

Sylvie
PS: Qui sera le plus fort ?? sur cette question ??