Envoi de Mails

Jacques · 6 Novembre 2003

Bonjour à tous...

J'utilise la ligne de code suivante pour générer un mail à partir d'excel 97:

Application.Dialogs(xlDialogSendMail).Show arg1:="vanginderdeur_jacques@euroclear.com", arg2:="Et en plus VB envoie des mails ...", arg3:=False

Cette ligne fait s'ouvrir une interface Outlook et initialise le destinataire (arg1) ainsi que le sujet (arg2), l'envoi devant toujours se faire manuellement.

Je souhaiterais que le mail soit automatiquement envoyé afin de permettre l'envoi de mails en série sans intervention d'un utilisateur.

Est-ce possible?

D'avance merci...

Jacques

Johan · 7 Novembre 2003

Bonjour Jacques,

ci-joint un fichier qui fera l'affaire je crois.
Tu n'as qu'à rajouter les noms des destinataires, et rajouter le sheet dans le fichier que tu veux envoyer.
Le sheet se Hide automatiquement à l'envoi, donc les destinataires ne le verront pas.

Johan

Jacques · 7 Novembre 2003

Salut Johan,

Un tout grand merci.... Ca a l'air de fonctionner...

Bonne journée et bon week end...

Jacques

Zoltane2000 · 7 Novembre 2003

Bonjour,

Je voudrais aussi utiliser l'envoi de mail par excel et word mais j'utilise Lotus Note ????

J'ai remarqué que les champs de Recipients mail étaient grisés comment les activer ?

Merci

Jacques · 7 Novembre 2003

Salut...

J'utililse Notes également.

Avec le code de Johan:

Application.ActiveWorkbook.SendMail Recipients:=(str_MailAddress), Subject:="test test"

Windows prompte une interface Outlook qui utilise les address books Notes. La première fois que tu l'utilises, tu dois entre ton pswd Notes.

Le code ci-dessus permet d'envoyer le mail sans aucune intervention pour le faire partir...

Quelle interface as-tu ?

Envoi de Mails

Jacques

Guest

Johan

Guest

Pièces jointes

Jacques

Guest

Zoltane2000

Guest

Jacques

Guest

Discussions similaires