Envoi d'un mail par macro

5 réponses

michel thiviers

30/10/2007 à 17:37

Bonjour à tous,
je voudrai envoyer dans un mail le texte d'une cellule choisie par une case
option. Le destinataire est defini par un autre choix.
Comment arriver à ne faire apparaitre que le texte de ma cellule dans le
corps du mail sans que la feuille ou le classeur soit joint au message.
les commandes du menu Fichier ne conviennent pas, les routages et autres ne
m'interessent pas.
Merci d'avance
Michel

5 réponses

Daniel.C

30/10/2007 à 18:05

Bonjour.
Qu'utilises-tu comme client de messagerie ? et quel est ton code ?
Avec Outlook 2003, j'utilise le code :

Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Desti = ""
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.Subject = "Sujet"
.Body = [A1] '*** ici l'adresse de ta cellule
.Recipients.Add Desti
.Send
End With
End Sub

Cordialement.
Daniel
"michel thiviers" a écrit dans le message de news:
47275de3$0$25947$

Bonjour à tous,
je voudrai envoyer dans un mail le texte d'une cellule choisie par une
case option. Le destinataire est defini par un autre choix.
Comment arriver à ne faire apparaitre que le texte de ma cellule dans le
corps du mail sans que la feuille ou le classeur soit joint au message.
les commandes du menu Fichier ne conviennent pas, les routages et autres
ne m'interessent pas.
Merci d'avance
Michel

Daniel.j

30/10/2007 à 18:27

Bonjour
Plusieurs exemples ici
http://dj.joss.free.fr/web.htm

--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm

VBAXL
http://dj.joss.free.fr/

"michel thiviers" a écrit dans le message de news:
47275de3$0$25947$

Bonjour à tous,
je voudrai envoyer dans un mail le texte d'une cellule choisie par une
case option. Le destinataire est defini par un autre choix.
Comment arriver à ne faire apparaitre que le texte de ma cellule dans le
corps du mail sans que la feuille ou le classeur soit joint au message.
les commandes du menu Fichier ne conviennent pas, les routages et autres
ne m'interessent pas.
Merci d'avance
Michel

michel thiviers

31/10/2007 à 09:36

J'utilise OE6 avec XP SP2 et Excel2003
Merci d'avance
"Daniel.C" a écrit dans le message de news:
%23bLp%

Bonjour.
Qu'utilises-tu comme client de messagerie ? et quel est ton code ?
Avec Outlook 2003, j'utilise le code :

Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Desti = ""
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.Subject = "Sujet"
.Body = [A1] '*** ici l'adresse de ta cellule
.Recipients.Add Desti
.Send
End With
End Sub

Cordialement.
Daniel
"michel thiviers" a écrit dans le message de
news: 47275de3$0$25947$
Bonjour à tous,
je voudrai envoyer dans un mail le texte d'une cellule choisie par une
case option. Le destinataire est defini par un autre choix.
Comment arriver à ne faire apparaitre que le texte de ma cellule dans le
corps du mail sans que la feuille ou le classeur soit joint au message.
les commandes du menu Fichier ne conviennent pas, les routages et autres
ne m'interessent pas.
Merci d'avance
Michel

michel thiviers

31/10/2007 à 09:36

Merci je vais tester tout ca
michel
"Daniel.j" a écrit dans le message de news:

Bonjour
Plusieurs exemples ici
http://dj.joss.free.fr/web.htm

--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm

VBAXL
http://dj.joss.free.fr/

"michel thiviers" a écrit dans le message de
news: 47275de3$0$25947$
Bonjour à tous,
je voudrai envoyer dans un mail le texte d'une cellule choisie par une
case option. Le destinataire est defini par un autre choix.
Comment arriver à ne faire apparaitre que le texte de ma cellule dans le
corps du mail sans que la feuille ou le classeur soit joint au message.
les commandes du menu Fichier ne conviennent pas, les routages et autres
ne m'interessent pas.
Merci d'avance
Michel

michel thiviers

31/10/2007 à 11:49

Merci, j'ai trouvé mon bonheur mais si la messagerie utilisée n'est pas OE
mais par exemple Increditmail ? suffit-il simplement de remplacer le chemin
de OE par celui de la messagerie avec le nom du programme ?
Merci d'avance
michel

"Daniel.j" a écrit dans le message de news:

Bonjour
Plusieurs exemples ici
http://dj.joss.free.fr/web.htm

--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm

VBAXL
http://dj.joss.free.fr/

"michel thiviers" a écrit dans le message de
news: 47275de3$0$25947$
Bonjour à tous,
je voudrai envoyer dans un mail le texte d'une cellule choisie par une
case option. Le destinataire est defini par un autre choix.
Comment arriver à ne faire apparaitre que le texte de ma cellule dans le
corps du mail sans que la feuille ou le classeur soit joint au message.
les commandes du menu Fichier ne conviennent pas, les routages et autres
ne m'interessent pas.
Merci d'avance
Michel

Envoi d'un mail par macro

5 réponses

Veuillez sélectionner un problème