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 Envoi e-mail par GroupWise au lieu de Outlook

Envoi e-mail par GroupWise au lieu de Outlook

6 réponses
Avatar
Yves Haenni
Bonjour,

J'ai un code qui permet d'envoyer des notes à mes étudiants, ces notes ainsi
que l'adresse e-mail du récipient se trouvant sur des lignes différentes sur
une même feuille. Le code fonctionne à merveille sur Outlook et sur Outlook
Express. Mais pas sur GroupWise. Au lieu d'envoyer un e-mail par étudiant,
toutes les notes sont envoyée à un même destinataire lorsque j'utilise gw.

Les deux lignes qui fontionnent sous Outlook mais pas sous gw semblent être
les suivantes :

URLto = "mailto:" & MailAdresse & "?subject=" & Sujet & "&body=" &
Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

Les variables MailAdresse, Sujet et Msg sont naturellement nourries
préalablement et URLto est déclaré comme String.

Une personne pourrait-elle m'aider ?

Merci et bonne journée à toutes et à tous

Yves
Signaler un problème avec ce contenu

6 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
Himselff
Je crois que jaurais une petite solutoin pour vous sans passer ni par OE ou
Groupe Whize, faites le moi savoir si sa vous interesse !

Fred
"Yves Haenni" wrote in message
news:
Bonjour,

J'ai un code qui permet d'envoyer des notes à mes étudiants, ces notes
ainsi

que l'adresse e-mail du récipient se trouvant sur des lignes différentes
sur

une même feuille. Le code fonctionne à merveille sur Outlook et sur
Outlook

Express. Mais pas sur GroupWise. Au lieu d'envoyer un e-mail par
étudiant,

toutes les notes sont envoyée à un même destinataire lorsque j'utilise gw.

Les deux lignes qui fontionnent sous Outlook mais pas sous gw semblent
être

les suivantes :

URLto = "mailto:" & MailAdresse & "?subject=" & Sujet & "&body=" &
Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

Les variables MailAdresse, Sujet et Msg sont naturellement nourries
préalablement et URLto est déclaré comme String.

Une personne pourrait-elle m'aider ?

Merci et bonne journée à toutes et à tous

Yves




Avatar
Himselff
ok jai un petit script ici quil faut trafiquer un brin et mettre les
configurations de votres fournisseurs internet ,

public sub send_mail()

set msg = WScript.CreateObject("CDO.Message")

msg.From = "mon "
msg.To = ""
msg.Subject = "TEST"

'on error go to 0

msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smt
pserver") = "adresse du serveur de mail"
msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sen
dusing") = 2
msg.Configuration.Fields.Update
msg.Send

if err.number <> 0 then
msgbox "msg not sent"
else
msgbox "msg sent"
end if

end sub

en traficant on peut mettre une boucle autour de ce script et lexecuter pour
tout les destinataires , le plus simple serait de mettre leur adresse de
couriel dans une collone de votre classeur excel et avec un petit :

for x = 1 to 5 'exemple avec 5 adresse
destinataire = cells(x,1)
** envoie le message
next

dans la procedure en haut =)

Bonne Chance !

Fred
"Yves Haenni" wrote in message
news:40a3c919$
C'est clair que ça m'intéresse! Je paie de mon sang s'il le faut !

(Mais pas trop quand-même : il m'en faut pour vivre...)

Yves

"Himselff" a écrit dans le message de
news:7PMoc.1237$
Je crois que jaurais une petite solutoin pour vous sans passer ni par OE
ou

Groupe Whize, faites le moi savoir si sa vous interesse !

Fred
"Yves Haenni" wrote in message
news:
Bonjour,

J'ai un code qui permet d'envoyer des notes à mes étudiants, ces notes
ainsi

que l'adresse e-mail du récipient se trouvant sur des lignes
différentes



sur
une même feuille. Le code fonctionne à merveille sur Outlook et sur
Outlook

Express. Mais pas sur GroupWise. Au lieu d'envoyer un e-mail par
étudiant,

toutes les notes sont envoyée à un même destinataire lorsque j'utilise
gw.



Les deux lignes qui fontionnent sous Outlook mais pas sous gw semblent
être

les suivantes :

URLto = "mailto:" & MailAdresse & "?subject=" & Sujet &
"&body="



&
Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

Les variables MailAdresse, Sujet et Msg sont naturellement nourries
préalablement et URLto est déclaré comme String.

Une personne pourrait-elle m'aider ?

Merci et bonne journée à toutes et à tous

Yves












Avatar
Yves Haenni
Merci. Je vais tester la chose. Ci dessous mon code pour Outlook. Ce code
fonctionne. Plus bas la structure de la feuille à partir duquel j'envoie
les notes.:

Première étape, le code qui régit cette feuille de calcul :
Sub EnvoiUnMail()
'Yves HAENNI :
'
'Ce code envoie les notes contenues dans une feuille de classeur à
différents étudiants
Dim MailAdresse As String
Dim Msg As String
Dim Sujet As String
Dim URLto As String
Dim i As Integer
Dim Titre(10) As String

'On charge d'abord les titres qui devront s'afficher dans chaque message
Range("Début_adresses_e_mail").Select
i = 2
While ActiveCell.Offset(0, i).Value <> ""
Titre(i) = ActiveCell.Offset(0, i).Value
i = i + 1
Wend

'On envoie les mails jusqu'à épuisement des adresses e-mail
Range("Début_adresses_e_mail").Offset(1, 0).Select
While ActiveCell.Value <> ""
MailAdresse = ActiveCell.Value
Sujet = ActiveCell.Offset(0, 1).Value
i = 2
Msg = Chr(13) & Chr(10)

While ActiveCell.Offset(0, i).Value <> ""
'Le code %0A permet de faire un retour de ligne à chaque
nouvelle note
'Si on enlève ce code, les notes se mettent à la queue-leu-leu
Msg = Msg & Titre(i) & " : " & ActiveCell.Offset(0, i).Value & "
" & "%0A"
If Titre(i) = "Moyenne" Then
Msg = Msg & "%0A"
End If

i = i + 1
Wend

URLto = "mailto:" & MailAdresse & "?subject=" & Sujet & "&body=" &
Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

ActiveCell.Offset(1, 0).Select
Wend

End Sub

Deuxième étape, la structure de la feuille ell-même:

Cellule B2 = "Nom"
Cellule C2 = "Début adresse e-mail"
Cellule D2 = "Sujet"
Cellule E2 = "Note1"
Cellule F2 = "Note2"
Cellule G2 = "Note3"
Cellule H2 = "Note4"
Cellule I2 = "Moyenne"
Cellule J2 = "Remarque"

Puis, à chaque ligne qui suit, le nom, l'adresse e-mail, le sujet et les
notes, la moyenne et une remarque pour chaque étudiant.

Remarque importante, la cellule C2 est une cellule nommée
(Début_adresses_e_mail) utilisée dans le code !

Comme je l'ai dit, ce code fonctionne très bien sur Outlook Express.
J'aimerais qu'il fonctionne également sur GroupWise...

Merci !

"Himselff" a écrit dans le message de
news:lBQoc.1256$
ok jai un petit script ici quil faut trafiquer un brin et mettre les
configurations de votres fournisseurs internet ,

public sub send_mail()

set msg = WScript.CreateObject("CDO.Message")

msg.From = "mon "
msg.To = ""
msg.Subject = "TEST"

'on error go to 0


msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smt

pserver") = "adresse du serveur de mail"

msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sen

dusing") = 2
msg.Configuration.Fields.Update
msg.Send

if err.number <> 0 then
msgbox "msg not sent"
else
msgbox "msg sent"
end if

end sub

en traficant on peut mettre une boucle autour de ce script et lexecuter
pour

tout les destinataires , le plus simple serait de mettre leur adresse de
couriel dans une collone de votre classeur excel et avec un petit :

for x = 1 to 5 'exemple avec 5 adresse
destinataire = cells(x,1)
** envoie le message
next

dans la procedure en haut =)

Bonne Chance !

Fred
"Yves Haenni" wrote in message
news:40a3c919$
C'est clair que ça m'intéresse! Je paie de mon sang s'il le faut !

(Mais pas trop quand-même : il m'en faut pour vivre...)

Yves

"Himselff" a écrit dans le message de
news:7PMoc.1237$
Je crois que jaurais une petite solutoin pour vous sans passer ni par
OE



ou
Groupe Whize, faites le moi savoir si sa vous interesse !

Fred
"Yves Haenni" wrote in message
news:
Bonjour,

J'ai un code qui permet d'envoyer des notes à mes étudiants, ces
notes




ainsi
que l'adresse e-mail du récipient se trouvant sur des lignes
différentes



sur
une même feuille. Le code fonctionne à merveille sur Outlook et sur
Outlook

Express. Mais pas sur GroupWise. Au lieu d'envoyer un e-mail par
étudiant,

toutes les notes sont envoyée à un même destinataire lorsque
j'utilise




gw.

Les deux lignes qui fontionnent sous Outlook mais pas sous gw
semblent




être
les suivantes :

URLto = "mailto:" & MailAdresse & "?subject=" & Sujet &
"&body="



&
Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

Les variables MailAdresse, Sujet et Msg sont naturellement nourries
préalablement et URLto est déclaré comme String.

Une personne pourrait-elle m'aider ?

Merci et bonne journée à toutes et à tous

Yves
















Avatar
Himselff
Justement avec le petit bout de code introduit dans le tient en boucle peut
envoyer autant de couriel contenant les notes quil ya d'etudiant sans avoir
recours a Outlook ou Group Whize donc beaucoup plus versatile ,
essaie le petit code dans une procedure a part au debut pour te
familliariser avec le principe par la suite tu sauras mieux comment
l'introduire au tient !

Bonne Chance !

Fred
"Yves Haenni" wrote in message
news:
Merci. Je vais tester la chose. Ci dessous mon code pour Outlook. Ce
code

fonctionne. Plus bas la structure de la feuille à partir duquel j'envoie
les notes.:

Première étape, le code qui régit cette feuille de calcul :
Sub EnvoiUnMail()
'Yves HAENNI :
'
'Ce code envoie les notes contenues dans une feuille de classeur à
différents étudiants
Dim MailAdresse As String
Dim Msg As String
Dim Sujet As String
Dim URLto As String
Dim i As Integer
Dim Titre(10) As String

'On charge d'abord les titres qui devront s'afficher dans chaque
message

Range("Début_adresses_e_mail").Select
i = 2
While ActiveCell.Offset(0, i).Value <> ""
Titre(i) = ActiveCell.Offset(0, i).Value
i = i + 1
Wend

'On envoie les mails jusqu'à épuisement des adresses e-mail
Range("Début_adresses_e_mail").Offset(1, 0).Select
While ActiveCell.Value <> ""
MailAdresse = ActiveCell.Value
Sujet = ActiveCell.Offset(0, 1).Value
i = 2
Msg = Chr(13) & Chr(10)

While ActiveCell.Offset(0, i).Value <> ""
'Le code %0A permet de faire un retour de ligne à chaque
nouvelle note
'Si on enlève ce code, les notes se mettent à la queue-leu-leu
Msg = Msg & Titre(i) & " : " & ActiveCell.Offset(0, i).Value &
"

" & "%0A"
If Titre(i) = "Moyenne" Then
Msg = Msg & "%0A"
End If

i = i + 1
Wend

URLto = "mailto:" & MailAdresse & "?subject=" & Sujet & "&body=" &
Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

ActiveCell.Offset(1, 0).Select
Wend

End Sub

Deuxième étape, la structure de la feuille ell-même:

Cellule B2 = "Nom"
Cellule C2 = "Début adresse e-mail"
Cellule D2 = "Sujet"
Cellule E2 = "Note1"
Cellule F2 = "Note2"
Cellule G2 = "Note3"
Cellule H2 = "Note4"
Cellule I2 = "Moyenne"
Cellule J2 = "Remarque"

Puis, à chaque ligne qui suit, le nom, l'adresse e-mail, le sujet et les
notes, la moyenne et une remarque pour chaque étudiant.

Remarque importante, la cellule C2 est une cellule nommée
(Début_adresses_e_mail) utilisée dans le code !

Comme je l'ai dit, ce code fonctionne très bien sur Outlook Express.
J'aimerais qu'il fonctionne également sur GroupWise...

Merci !

"Himselff" a écrit dans le message de
news:lBQoc.1256$
ok jai un petit script ici quil faut trafiquer un brin et mettre les
configurations de votres fournisseurs internet ,

public sub send_mail()

set msg = WScript.CreateObject("CDO.Message")

msg.From = "mon "
msg.To = ""
msg.Subject = "TEST"

'on error go to 0




msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smt

pserver") = "adresse du serveur de mail"



msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sen

dusing") = 2
msg.Configuration.Fields.Update
msg.Send

if err.number <> 0 then
msgbox "msg not sent"
else
msgbox "msg sent"
end if

end sub

en traficant on peut mettre une boucle autour de ce script et lexecuter
pour

tout les destinataires , le plus simple serait de mettre leur adresse de
couriel dans une collone de votre classeur excel et avec un petit :

for x = 1 to 5 'exemple avec 5 adresse
destinataire = cells(x,1)
** envoie le message
next

dans la procedure en haut =)

Bonne Chance !

Fred
"Yves Haenni" wrote in message
news:40a3c919$
C'est clair que ça m'intéresse! Je paie de mon sang s'il le faut !

(Mais pas trop quand-même : il m'en faut pour vivre...)

Yves

"Himselff" a écrit dans le message de
news:7PMoc.1237$
Je crois que jaurais une petite solutoin pour vous sans passer ni
par




OE
ou
Groupe Whize, faites le moi savoir si sa vous interesse !

Fred
"Yves Haenni" wrote in message
news:
Bonjour,

J'ai un code qui permet d'envoyer des notes à mes étudiants, ces
notes




ainsi
que l'adresse e-mail du récipient se trouvant sur des lignes
différentes



sur
une même feuille. Le code fonctionne à merveille sur Outlook et
sur





Outlook
Express. Mais pas sur GroupWise. Au lieu d'envoyer un e-mail par
étudiant,

toutes les notes sont envoyée à un même destinataire lorsque
j'utilise




gw.

Les deux lignes qui fontionnent sous Outlook mais pas sous gw
semblent




être
les suivantes :

URLto = "mailto:" & MailAdresse & "?subject=" & Sujet &
"&body="



&
Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

Les variables MailAdresse, Sujet et Msg sont naturellement
nourries





préalablement et URLto est déclaré comme String.

Une personne pourrait-elle m'aider ?

Merci et bonne journée à toutes et à tous

Yves




















Avatar
Yves Haenni
C'est clair que ça m'intéresse! Je paie de mon sang s'il le faut !

(Mais pas trop quand-même : il m'en faut pour vivre...)

Yves

"Himselff" a écrit dans le message de
news:7PMoc.1237$
Je crois que jaurais une petite solutoin pour vous sans passer ni par OE
ou

Groupe Whize, faites le moi savoir si sa vous interesse !

Fred
"Yves Haenni" wrote in message
news:
Bonjour,

J'ai un code qui permet d'envoyer des notes à mes étudiants, ces notes
ainsi

que l'adresse e-mail du récipient se trouvant sur des lignes différentes
sur

une même feuille. Le code fonctionne à merveille sur Outlook et sur
Outlook

Express. Mais pas sur GroupWise. Au lieu d'envoyer un e-mail par
étudiant,

toutes les notes sont envoyée à un même destinataire lorsque j'utilise
gw.



Les deux lignes qui fontionnent sous Outlook mais pas sous gw semblent
être

les suivantes :

URLto = "mailto:" & MailAdresse & "?subject=" & Sujet & "&body="
&


Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

Les variables MailAdresse, Sujet et Msg sont naturellement nourries
préalablement et URLto est déclaré comme String.

Une personne pourrait-elle m'aider ?

Merci et bonne journée à toutes et à tous

Yves








Avatar
Yves Haenni
Petite question : quelle est la référence pour faire fonctionner la ligne
suivante :

set msg = WScript.CreateObject("CDO.Message")

J'obtiens toujours un message d'erreur à cet endroit-là qui me dit "Erreur
de compilation, Projet ou bibliothèque introuvable".

Merci

Yves

"Himselff" a écrit dans le message de
news:lBQoc.1256$
ok jai un petit script ici quil faut trafiquer un brin et mettre les
configurations de votres fournisseurs internet ,

public sub send_mail()

set msg = WScript.CreateObject("CDO.Message")

msg.From = "mon "
msg.To = ""
msg.Subject = "TEST"

'on error go to 0


msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smt

pserver") = "adresse du serveur de mail"

msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sen

dusing") = 2
msg.Configuration.Fields.Update
msg.Send

if err.number <> 0 then
msgbox "msg not sent"
else
msgbox "msg sent"
end if

end sub

en traficant on peut mettre une boucle autour de ce script et lexecuter
pour

tout les destinataires , le plus simple serait de mettre leur adresse de
couriel dans une collone de votre classeur excel et avec un petit :

for x = 1 to 5 'exemple avec 5 adresse
destinataire = cells(x,1)
** envoie le message
next

dans la procedure en haut =)

Bonne Chance !

Fred
"Yves Haenni" wrote in message
news:40a3c919$
C'est clair que ça m'intéresse! Je paie de mon sang s'il le faut !

(Mais pas trop quand-même : il m'en faut pour vivre...)

Yves

"Himselff" a écrit dans le message de
news:7PMoc.1237$
Je crois que jaurais une petite solutoin pour vous sans passer ni par
OE



ou
Groupe Whize, faites le moi savoir si sa vous interesse !

Fred
"Yves Haenni" wrote in message
news:
Bonjour,

J'ai un code qui permet d'envoyer des notes à mes étudiants, ces
notes




ainsi
que l'adresse e-mail du récipient se trouvant sur des lignes
différentes



sur
une même feuille. Le code fonctionne à merveille sur Outlook et sur
Outlook

Express. Mais pas sur GroupWise. Au lieu d'envoyer un e-mail par
étudiant,

toutes les notes sont envoyée à un même destinataire lorsque
j'utilise




gw.

Les deux lignes qui fontionnent sous Outlook mais pas sous gw
semblent




être
les suivantes :

URLto = "mailto:" & MailAdresse & "?subject=" & Sujet &
"&body="



&
Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

Les variables MailAdresse, Sujet et Msg sont naturellement nourries
préalablement et URLto est déclaré comme String.

Une personne pourrait-elle m'aider ?

Merci et bonne journée à toutes et à tous

Yves