OVH Cloud OVH Cloud

envoi de mail...suite

5 réponses
Avatar
fth
Re bonjour,
pour préciser un peu mon precedent message, quand je met "mailto:" dans mon
champs hyperlink devant l'adresse email, outlook s'ouvre, l'adresse est bien
dans "To", je peux donc taper un mail.
j'aimerais en fait ne pas de voir taper le "mailto:" devant l'adresse (ça
pause qq problemes aux utilisateurs) et plutot sur un click ou un double
click arriver au mm résulat...

Re merci

Frederic

5 réponses

Avatar
www.eztree-msdn.com \(Laurent Jordi\) Enlever le s à infos pour me contacter par mail
Dim OLApp As New Outlook.Application
Dim M As Outlook.MailItem
Dim destinataire As String

destinataire = "" 'LE OU LES DESTINATAIRES DU
MESSAGE
Set M = OLApp.CreateItem(olMailItem)
M.Subject = "La Rainette, Statistiques"
M.To = destinataire
M.Attachments.Add FileName
'***************************************
'**** Envoi du mail
'***************************************
M.Send
OLApp.Quit
set OLApp = nothing


@+

LJ

www.eztree-msnd.com
www.ezlogic.mc




"fth" a écrit dans le message de
news:4096117b$0$21777$
Re bonjour,
pour préciser un peu mon precedent message, quand je met "mailto:" dans
mon

champs hyperlink devant l'adresse email, outlook s'ouvre, l'adresse est
bien

dans "To", je peux donc taper un mail.
j'aimerais en fait ne pas de voir taper le "mailto:" devant l'adresse (ça
pause qq problemes aux utilisateurs) et plutot sur un click ou un double
click arriver au mm résulat...

Re merci

Frederic




Avatar
fth
Bonjour,

quand je lance le code, j'ai le message suivant:

"Outlook does not recognize one or more names"

merci


frederic


"www.eztree-msdn.com (Laurent Jordi) Enlever le s à infos pour me contacter
par mail" wrote in message
news:udyj$
Dim OLApp As New Outlook.Application
Dim M As Outlook.MailItem
Dim destinataire As String

destinataire = "" 'LE OU LES DESTINATAIRES DU
MESSAGE
Set M = OLApp.CreateItem(olMailItem)
M.Subject = "La Rainette, Statistiques"
M.To = destinataire
M.Attachments.Add FileName
'***************************************
'**** Envoi du mail
'***************************************
M.Send
OLApp.Quit
set OLApp = nothing


@+

LJ

www.eztree-msnd.com
www.ezlogic.mc




"fth" a écrit dans le message de
news:4096117b$0$21777$
Re bonjour,
pour préciser un peu mon precedent message, quand je met "mailto:" dans
mon

champs hyperlink devant l'adresse email, outlook s'ouvre, l'adresse est
bien

dans "To", je peux donc taper un mail.
j'aimerais en fait ne pas de voir taper le "mailto:" devant l'adresse
(ça


pause qq problemes aux utilisateurs) et plutot sur un click ou un double
click arriver au mm résulat...

Re merci

Frederic








Avatar
fth
re bonjour,

j'ai trouvé la solution à l'erreur que j'avais (voir message dans cette
file) MAIS;

ce qui serait sympa, c'est d'avoir juste la fenetre ouverte dans outlook
avec le To: remplis et pouvoir taper le mail dans outlook.

Est-ce possible?

D'avance merci

Frédéric
"www.eztree-msdn.com (Laurent Jordi) Enlever le s à infos pour me contacter
par mail" wrote in message
news:udyj$
Dim OLApp As New Outlook.Application
Dim M As Outlook.MailItem
Dim destinataire As String

destinataire = "" 'LE OU LES DESTINATAIRES DU
MESSAGE
Set M = OLApp.CreateItem(olMailItem)
M.Subject = "La Rainette, Statistiques"
M.To = destinataire
M.Attachments.Add FileName
'***************************************
'**** Envoi du mail
'***************************************
M.Send
OLApp.Quit
set OLApp = nothing


@+

LJ

www.eztree-msnd.com
www.ezlogic.mc




"fth" a écrit dans le message de
news:4096117b$0$21777$
Re bonjour,
pour préciser un peu mon precedent message, quand je met "mailto:" dans
mon

champs hyperlink devant l'adresse email, outlook s'ouvre, l'adresse est
bien

dans "To", je peux donc taper un mail.
j'aimerais en fait ne pas de voir taper le "mailto:" devant l'adresse
(ça


pause qq problemes aux utilisateurs) et plutot sur un click ou un double
click arriver au mm résulat...

Re merci

Frederic








Avatar
www.eztree-msdn.com \(Laurent Jordi\) Enlever le s à infos pour me contacter par mail
Salut...

Dans ce cas tu dois utiliser l'automation et je ne sais pas si ça passera en
particuler à cause des paramètres de sécu...

Il faudrait regarder s'il est possible de piloter une instance ouverte de
Outlook.

On peut le faire dans Excel en disant xlApp.Visible = true...

A toi de tester avec outlook mais à mon avis le + simple est d'utiliser un
formulaire avec une boite de texte independante. Tu affecteras la propriété
texte de ta boite à la propriété body de M

@++

LJ

www.eztree-msdn.com

"fth" a écrit dans le message de
news:40963e57$0$22989$
re bonjour,

j'ai trouvé la solution à l'erreur que j'avais (voir message dans cette
file) MAIS;

ce qui serait sympa, c'est d'avoir juste la fenetre ouverte dans outlook
avec le To: remplis et pouvoir taper le mail dans outlook.

Est-ce possible?

D'avance merci

Frédéric
"www.eztree-msdn.com (Laurent Jordi) Enlever le s à infos pour me
contacter

par mail" wrote in message
news:udyj$
Dim OLApp As New Outlook.Application
Dim M As Outlook.MailItem
Dim destinataire As String

destinataire = "" 'LE OU LES DESTINATAIRES DU
MESSAGE
Set M = OLApp.CreateItem(olMailItem)
M.Subject = "La Rainette, Statistiques"
M.To = destinataire
M.Attachments.Add FileName
'***************************************
'**** Envoi du mail
'***************************************
M.Send
OLApp.Quit
set OLApp = nothing


@+

LJ

www.eztree-msnd.com
www.ezlogic.mc




"fth" a écrit dans le message de
news:4096117b$0$21777$
Re bonjour,
pour préciser un peu mon precedent message, quand je met "mailto:"
dans



mon
champs hyperlink devant l'adresse email, outlook s'ouvre, l'adresse
est



bien
dans "To", je peux donc taper un mail.
j'aimerais en fait ne pas de voir taper le "mailto:" devant l'adresse
(ça


pause qq problemes aux utilisateurs) et plutot sur un click ou un
double



click arriver au mm résulat...

Re merci

Frederic












Avatar
Luis
Bonjour,
Essai ça, chez moi ça marche.

Sur double clic du champ:
Dim x
x = fHandleFile("mailto:" & Me![MAIL], WIN_NORMAL)
Il faut remplacer [MAIL] par le nom de ton champ ou il y a
l'adresse email.
Dans ce cas il n'y apas besoin d'ajouter 'mailto' dans
l'adresse.
Dans les référence tu dois cocher:
Microsoft Outlook 8.0 Objet library (pour Access97)
Microsoft Outlook 9.0 Objet library
ou
Microsoft Outlook 10.0 Objet library
Etc...
de toutes façons selon l'évolution d'Access, on ne peut
pas se tromper.
Luis
-----Message d'origine-----
re bonjour,

j'ai trouvé la solution à l'erreur que j'avais (voir
message dans cette

file) MAIS;

ce qui serait sympa, c'est d'avoir juste la fenetre
ouverte dans outlook

avec le To: remplis et pouvoir taper le mail dans outlook.

Est-ce possible?

D'avance merci

Frédéric
"www.eztree-msdn.com (Laurent Jordi) Enlever le s à infos
pour me contacter

par mail" wrote in message
news:udyj$
Dim OLApp As New Outlook.Application
Dim M As Outlook.MailItem
Dim destinataire As String

destinataire = "" 'LE OU LES
DESTINATAIRES DU


MESSAGE
Set M = OLApp.CreateItem(olMailItem)
M.Subject = "La Rainette, Statistiques"
M.To = destinataire
M.Attachments.Add FileName
'***************************************
'**** Envoi du mail
'***************************************
M.Send
OLApp.Quit
set OLApp = nothing


@+

LJ

www.eztree-msnd.com
www.ezlogic.mc




"fth" a écrit dans le message de
news:4096117b$0$21777$
Re bonjour,
pour préciser un peu mon precedent message, quand je
met "mailto:" dans



mon
champs hyperlink devant l'adresse email, outlook
s'ouvre, l'adresse est



bien
dans "To", je peux donc taper un mail.
j'aimerais en fait ne pas de voir taper le "mailto:"
devant l'adresse



(ça
pause qq problemes aux utilisateurs) et plutot sur un
click ou un double



click arriver au mm résulat...

Re merci

Frederic








.