Microsoft 365 Mail envoi automatique avec texte

Usine à gaz · 10 Septembre 2022

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

Staple1600 · 12 Septembre 2022

Re

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...

TooFatBoy · 11 Septembre 2022

Bonjour,

Usine à gaz à dit:
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 · 11 Septembre 2022

Bonjour TooFatBoy

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

kiki29 · 11 Septembre 2022

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

Usine à gaz · 11 Septembre 2022

Bonjour et merci kiki29

Je vais aller voir ça,
lionel

fanch55 · 11 Septembre 2022

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 · 11 Septembre 2022

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 · 11 Septembre 2022

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 · 11 Septembre 2022

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

VB:

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 :

Code:

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 · 11 Septembre 2022

Pour info, j'ai bien activé :

lionel

Staple1600 · 11 Septembre 2022

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 · 11 Septembre 2022

Staple1600 à dit:
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 · 11 Septembre 2022

Re

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

Usine à gaz · 11 Septembre 2022

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 · 11 Septembre 2022

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

Microsoft 365 Mail envoi automatique avec texte

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Staple1600

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Microsoft 365 - Envoi de mails SANS Outlook

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

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

Discussions similaires