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]

Bonjour,

Chez moi, à l'activation du lien, il ouvre chrome et je voudrais qu'il ouvre hotmail.com

Si tu veux ouvrir un site qui s'appelle "hotmail.com", il est normal de commencer par ouvrir un navigateur.

En revanche si c'est, comme le dit le titre de ce fil, un envoi automatique de mail que tu veux faire, je ne pige pas pourquoi tu veux ouvrir un site internet ?!? 🤔

 

[Usine à gaz]

Bonjour TooFatBoy 🙂
Bon dimanche à toi...
Ce n'est pas un site que je voudrais ouvrir mais ma boite mail hotmail : lio@hotmail.com
🙂

 

[kiki29]

Salut, sur le site de Ron de Bruin : CDO et Use the mail account you want in your mail macro

 

[Usine à gaz]

Bonjour et merci kiki29 🙂
Je vais aller voir ça,
lionel 🙂

 

[fanch55]

Salut à tous,
Lionel,
Attention avec CDO : pas d'historique, pas de journal .
Ne pas oublier de mettre en copie caché l'émetteur du mail pour conserver une trace .

 

[Usine à gaz]

Bonjour fanch55 🙂
Merci pour l'info.
Malheureusement je planche depuis des heures avec consultation du site de Ron de Bruin : CDO et Use the mail account you want in your mail macro

B....L J'y comprends rien Grrr !!!
lionel 🙂

 

[fanch55]

Un exemple qui fonctionne :

Microsoft 365 - Envoi de mails SANS Outlook

Bonjour aux experts. J'ai déjà lu les discussions sur ce sujet mais sans trouver la solution. J'utilise des "noms" dans le VBA (voir avec Ctrl + f3) - mais si j'inscrit directement les info dans le VBA, le blocage est le même. Le blocage est sur .Send - J'ai écrit dans le module d'autres...

excel-downloads.com

 

[Usine à gaz]

Bon sang, j'en suis pas loin 😉
Voici mon code feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d6:d10")) Is Nothing Then
    If Target = "Abonnement mensuel," Or Target = "Abonnement annuel," Then
        envoi
        [a1].Select
        End If
    End If
End Sub

et mon code module :

Sub envoi()
Dim olApp As New Outlook.Application
Dim olItem As Outlook.MailItem
' necessite d'activer la reference microsoft outlook 10.0 object library
Set olItem = olApp.CreateItem(olMailItem)
With olItem
.To = "arthour973@hotmail.fr" 'destinataire
.Subject = "message de lionel"
.Body = "http://www.excel-downloads.com" & vbLf & [f6].Value
.Display
'.Save
.Send
End With
Set olItem = Nothing
Set olApp = Nothing
End Sub

Tout semble se passer bien et ... évidemment à 2 exceptions près :
- Il n'ouvre pas ma boite mail, par exemple : lio@hotmail.com
- Le mail n'est pas envoyé.

J'approche mais je n'y arrive pas 😡
En cas que quelqu'un veuille bien m'aider, je joins le fichier là où il est est.

Je continue mes recherches...
lionel 🙂

 

[Usine à gaz]

Pour info, j'ai bien activé :

lionel 🙂

 

[Staple1600]

Bonjour le fil

arth***9**
C'est ton vrai mail?
Si oui, tu dois aimer le spam 😉
🙄

NB: Et dire qu'on dit aux petits nouveaux de publier que des données anonymes 😉

 

[Usine à gaz]

Bonjour le fil

arth***9**
C'est ton vrai mail?
Si oui, tu dois aimer le spam 😉
🙄

Bonjour Staple1600 🙂
Content de te voir 🙂
C'est une adresse test,
lionel 🙂

 

[Staple1600]

Re

Oui, de test mais néanmoins une adresse réelle (donc spamable ou piratable)
Après c'est toi qui vois 😉

 

[Usine à gaz]

Pas de souci, je ne reçois jamais rien sur cette adresse ... que des spams lol 🙂
Par principe, j'ai quand même suivi ton conseil et remis les fichiers 🙂

 

[dysorthographie]

Bonjour,
je t'envois le lien d'un truc que j'ai commis il y a déjà quelques temps!

Un composant activeX ne peut pas créer un objet - Macros et VBA Excel

Je viens d'installer OUTLOOK 2007 pour automatiser l'envoi de mail pour mon association 1901, j'ai installé la reférence "Outlook 12.0 Object Library" j'ai recopié de l' aide DVP ce début de code Code

www.developpez.net