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
Imaginons que dans Outlook (en plus de mon compte par défaut j'ai ajouté) mon compte Hotmail.
(voir moult tutos sur le web pour ce faire)
Imaginons que je sois patient et que je lise religieusement les conseils qu'on me prodigue
Imaginons que je sois curieux
Maintenant qu'on a rendu hommage à John L. )
Allons faire un tour du côté d'Outlook (*) pour tester ce que Lionel aurait pu trouver depuis le message#4
(puisque le lien était donné par Kiki29)
(*) non je ne vais pas rendre hommage à Dave en plus
(quoique 2022, c'est l'année Proust)
Ci-dessous code issu des pages de RDB
Enrichi (BBcode):
Sub Mail_small_Text_Change_Account()
'Only working in Office 2007 and higher
'Don't forget to set a reference to Outlook in the VBA editor...
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).
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 :
VB:
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 .
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
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,"...
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,"...