Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Mail

13 réponses
Avatar
Nicolas
bonsoir,
je souhaite à l'aide d'un bouton de commande créer automatiquement un
mail avec sélection automatique des destinataires, saisie automatique du
sujet, insertion des pièces jointes automatiques??
je demande peut-être beaucoup!!!
mais cela me faciliterai tellement la vie!!!
d'avance merci pour votre aide

3 réponses

1 2
Avatar
Nicolas
Fabien a écrit :
Nicolas a écrit :
A l'attention de 3Stone,
bonsoir,
j'ai récupéré sur ton site internet un fichier intitulé
"A2KSendMailMAPI" qui m'informe après lancement le message suivant
"Votre client de messagerie n'est pas supporté".

effectivement je travaille avec Mozilla Thunderbird et d'après la
lecture de tes lignes de code il s'avère que ce message apparaît si la
messagerie n'est ni "Outlook Express" ni "Microsoft Outlook".

comment puis-je faire fonctionner l'appli tout en conservant Mozilla
Thunderbird

merci d'avance pour ton aide


3stone a écrit :
Salut,

Nicolas wrote:
[...]
le code bloque au niveau de la ligne ".Send" et émet l'erreur suivante
"la valeur de config "SendUsing" est non valide."




Voilà la liste des programmes qui apporte CDO :
http://support.microsoft.com/default.aspx?scid=kb;EN-US;171440

Vérifie aussi si ton problème ne vient pas de ceci :
http://support.microsoft.com/?scid=kb%3Bfr%3B322338&x&y


Je viens aussi de tester une alternative qui fonctionne bien...

Dim objEmail As Object
Set objEmail = CreateObject("CDO.Message")

With objEmail
.From = "ton email"
.To = "email destinataire"
.Subject = "Le sujet"
.TextBody = "Le message en texte brut"
.HTMLBody = "Le message en HTML"

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.machin.com"

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Configuration.Fields.Update
.Send
End With


il faut adapter "smtp.machin.com" ;-)





Salut,
Sur le site badminton-briviste.go1.cc tu trouvera dans la rubrique
"outil suivi joueurs", une base dans laquelle j'utilise "massivement"
l'envoi de document via email.
A toi d'adapter ;-)
@+




ok_merci pour le tuyau
Avatar
Nicolas
Fabien a écrit :
Nicolas a écrit :
A l'attention de 3Stone,
bonsoir,
j'ai récupéré sur ton site internet un fichier intitulé
"A2KSendMailMAPI" qui m'informe après lancement le message suivant
"Votre client de messagerie n'est pas supporté".

effectivement je travaille avec Mozilla Thunderbird et d'après la
lecture de tes lignes de code il s'avère que ce message apparaît si la
messagerie n'est ni "Outlook Express" ni "Microsoft Outlook".

comment puis-je faire fonctionner l'appli tout en conservant Mozilla
Thunderbird

merci d'avance pour ton aide


3stone a écrit :
Salut,

Nicolas wrote:
[...]
le code bloque au niveau de la ligne ".Send" et émet l'erreur suivante
"la valeur de config "SendUsing" est non valide."




Voilà la liste des programmes qui apporte CDO :
http://support.microsoft.com/default.aspx?scid=kb;EN-US;171440

Vérifie aussi si ton problème ne vient pas de ceci :
http://support.microsoft.com/?scid=kb%3Bfr%3B322338&x&y


Je viens aussi de tester une alternative qui fonctionne bien...

Dim objEmail As Object
Set objEmail = CreateObject("CDO.Message")

With objEmail
.From = "ton email"
.To = "email destinataire"
.Subject = "Le sujet"
.TextBody = "Le message en texte brut"
.HTMLBody = "Le message en HTML"

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.machin.com"

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Configuration.Fields.Update
.Send
End With


il faut adapter "smtp.machin.com" ;-)





Salut,
Sur le site badminton-briviste.go1.cc tu trouvera dans la rubrique
"outil suivi joueurs", une base dans laquelle j'utilise "massivement"
l'envoi de document via email.
A toi d'adapter ;-)
@+



bonsoir Fabien
j'ai regardé ta base...effectivement elle est ergonomique et facile
d'utilisation.
malheureusement pour moi c'est un fichier mde et je ne peux lire tes
lignes de code me permettant d'adapter ma base.
peux-tu remédier à cela ou pas??
Avatar
Nicolas
Fabien a écrit :
Nicolas a écrit :
A l'attention de 3Stone,
bonsoir,
j'ai récupéré sur ton site internet un fichier intitulé
"A2KSendMailMAPI" qui m'informe après lancement le message suivant
"Votre client de messagerie n'est pas supporté".

effectivement je travaille avec Mozilla Thunderbird et d'après la
lecture de tes lignes de code il s'avère que ce message apparaît si la
messagerie n'est ni "Outlook Express" ni "Microsoft Outlook".

comment puis-je faire fonctionner l'appli tout en conservant Mozilla
Thunderbird

merci d'avance pour ton aide


3stone a écrit :
Salut,

Nicolas wrote:
[...]
le code bloque au niveau de la ligne ".Send" et émet l'erreur suivante
"la valeur de config "SendUsing" est non valide."




Voilà la liste des programmes qui apporte CDO :
http://support.microsoft.com/default.aspx?scid=kb;EN-US;171440

Vérifie aussi si ton problème ne vient pas de ceci :
http://support.microsoft.com/?scid=kb%3Bfr%3B322338&x&y


Je viens aussi de tester une alternative qui fonctionne bien...

Dim objEmail As Object
Set objEmail = CreateObject("CDO.Message")

With objEmail
.From = "ton email"
.To = "email destinataire"
.Subject = "Le sujet"
.TextBody = "Le message en texte brut"
.HTMLBody = "Le message en HTML"

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.machin.com"

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Configuration.Fields.Update
.Send
End With


il faut adapter "smtp.machin.com" ;-)





Salut,
Sur le site badminton-briviste.go1.cc tu trouvera dans la rubrique
"outil suivi joueurs", une base dans laquelle j'utilise "massivement"
l'envoi de document via email.
A toi d'adapter ;-)
@+



désolé...je n'avais pas lu l'ensemble des infos de ton site!!
1 2