Microsoft 365 Mail envoi automatique avec texte

[Usine à gaz]

Bonsoir à toutes et à tous,
Je vous souhaite un bon WE 🙂

Me revoilà devant nos ténors pour un souci de "Mail envoi automatique avec texte"
J'ai pas mal avancé sur le sujet mais je n'arrive pas à terminer :

Besoin : Si en Cellule D6, je sélectionne "Abonnement mensuel," ou "Abonnement annuel,"
Je voudrais qu'un mail soit envoyé à l'adresse en Cellule H6 avec le contenu de la cellule F6

Je joins le fichier test,
Un grand merci par avance,
lionel 🙂

 

[TooFatBoy]

Oui JM, j'utilise Hotmail (dans mon navigateur) pas Outlook
😉

MERCI Staple, tu m'enlèves-là un poids qui devenait bien pesant !

Sois béni des dieux, mon ami !!! 😍😍😍

 

[Usine à gaz]

OUI, mais alors comment faire pour solliciter Hotmail et non Outlook ?

 

[TooFatBoy]

Pour l'instant, je ne peux pas dire pkoi mais job75 est absent.

Parce que tu n'avais pas envoyé le jobsignal.
Maintenant que je l'ai fait pour toi, il n'y a plus qu'à attendre. 😉

 

[TooFatBoy]

OUI, mais alors comment faire pour solliciter Hotmail et non Outlook ?

Que je sache, le programme Hotmail n'existe plus et a été remplacé par Outlook.

 

[Usine à gaz]

Que je sache, le programme Hotmail n'existe plus et a été remplacé par Outlook.

OUI mais les boite hotmail existent toujours

 

[TooFatBoy]

OUI mais les boite hotmail existent toujours

Oui. J'en utilise moi-même plusieurs. 😉

 

[TooFatBoy]

Oui JM, j'utilise Hotmail (dans mon navigateur) pas Outlook

Si tu n'as pas de logiciel de courrier installé sur ton PC, soit tu en installes un (je ne sais pas si les macros des derniers messages peuvent fonctionner avec un autre programme qu'Outlook), soit tu passes par CDO en lui donnant tous les paramètres dont il a besoin (en particulier ton mot de passe pour accéder à ton compte mail...).

Mais tu semblais dire qu'Outlook s'ouvrait, donc il est installé et il te suffit d'y paramétrer ton compte mail (sans oublier de le configurer pour qu'il n'efface pas les mails dans la boîte... LOL).

 

[fanch55]

Salut Lionel,
Quand tu utilises CDO, c'est une bouteille à la mer, tu n'ouvres pas Outlook ou un autre logiciel de messagerie.
Le mail est directement envoyé à ton serveur de messagerie.
Le code ci-dessous devrait fonctionner :

Sub Mail_CDO()
Dim Cdo As Object
Const Schema = "http://schemas.microsoft.com/cdo/configuration/"

    Select Case True
        Case [Expéditeur] = ""
        Case [Password] = ""
        Case [Serveur] = ""
        Case [Port] = ""
        Case Else
            Set Cdo = CreateObject("CDO.Message")
                With Cdo
                    On Error Resume Next
                    With .Configuration.Fields
                        .Item(Schema & "smtpusessl") = True             ' <<-- transport SSL
                        .Item(Schema & "smtpauthenticate") = 1          ' <<-- cdoBasic
                        .Item(Schema & "sendusername") = [Expéditeur]
                        .Item(Schema & "sendpassword") = [Password]
                        .Item(Schema & "smtpserver") = [Serveur]
                        .Item(Schema & "smtpserverport") = [Port]
                        .Item(Schema & "sendusing") = 2                 ' <<-- cdoSendUsingPort
                        .Update
                    End With
                 
                    .From = [Expéditeur]
                    .to = [Destinataire]
                    .cc = [Expéditeur]
               
                    .Subject = [Objet]
                    .TextBody = [Txt]
                    .send
                   
                    MsgBox IIf(Err, Err.Description, "Mail accepté"), IIf(Err, vbCritical, vbInformation), [Serveur]
                                                   
                End With
            Set Cdo = Nothing
    End Select
   
End Sub

Dans cet exemple, tous les noms entre crochets font référence à des cellules de ton classeur .

 

[Usine à gaz]

Bonjour et merci fanch55 🙂
Un Grand merci pour ton code.
Là, dessus ce P..T..N de code depuis 2 jours, j'ai une vraie indigestion et ça m'a vraiment fatigué 🙃🤒
Je regarde dès que je peux.
Vraiment merci à toi.
Je te dirai dès que j'aurai testé...
lionel 🙂

 

[Staple1600]

Bonsoir Fanch55

Pour infos, Lionel a déjà mis les dents dans CDO et il s'y est cassé le nez 😉
(message #17)

Microsoft 365 - Mail envoi automatique avec texte

Bonsoir à toutes et à tous, Je vous souhaite un bon WE :) Me revoilà devant nos ténors pour un souci de "Mail envoi automatique avec texte" J'ai pas mal avancé sur le sujet mais je n'arrive pas à terminer : Besoin : Si en Cellule D6, je sélectionne "Abonnement mensuel," ou "Abonnement annuel,"...

excel-downloads.com

 

[Usine à gaz]

Bonsoir Fanch55

Pour infos, Lionel a déjà mis les dents dans CDO et il s'y est cassé le nez 😉
(message #17)

Microsoft 365 - Mail envoi automatique avec texte

Bonsoir à toutes et à tous, Je vous souhaite un bon WE :) Me revoilà devant nos ténors pour un souci de "Mail envoi automatique avec texte" J'ai pas mal avancé sur le sujet mais je n'arrive pas à terminer : Besoin : Si en Cellule D6, je sélectionne "Abonnement mensuel," ou "Abonnement annuel,"...

excel-downloads.com

OUI mais je ne suis pas du niveau de fanch55, alors je croise les doigts, je me repose et fait durer le plaisir en pensant que son code fonctionne 😉 😛

 

[Staple1600]

Re

=Lionel
Là n'était le sens de mon message (qui s'adressait à Fanch)
C'était simplement un message à caractère informatif (à son intention)

 

[Usine à gaz]

Re

=Lionel
Là n'était le sens de mon message (qui s'adressait à Fanch)
C'était simplement un message à caractère informatif (à son intention)

JM : pas de souci car c'est une vérité 🙂 🙂

 

[Usine à gaz]

Re fanch55 🙂

J'ai quand même du mal à résister lol 🙂
A ton avis, je tente koi en N° Case [Port] = ""
🙂

 

[TooFatBoy]

A ton avis, je tente koi en N° Case [Port] = ""

587 ?