Envoi de mails en VBA depuis Excel 2016 - Windows 10 Famille
Bonjour à toutes et à tous,
J'ai un besoin grandissant d'envoi de mails (sans pièce jointe) depuis mon application Excel.
J'utilise Gmail comme messagerie mais j'ai cru comprendre que Google interdit désormais ce genre de transfert pour des question de sécurité.
Pour le besoin de la manip, j'ai essayé de passer par la version gratuite de Outlook sur le web; je galère depuis plusieurs jours avec l'éclairage de Chat GPT et après avoir lu les échanges (et docs liés ) sur le forum, mais sans déboucher. Je me questionne d'ailleurs sur la faisabilité d'un envoi à partir de la version gratuite du web.
Je ne suis pas informaticien et peu affuté sur les questions d'internet, serveurs, protocole... C'est assez de m'y retrouver, donc tout se passe par tâtonnement très consommateur de temps et sans résultats.
Quelqu'un parmi vous aurait-il une solution ou des recommandations à partager svp ? Je suis preneur de tout.
Merci par avance pour votre aide (et déjà bien sûr pour le temps que vous aurez bien voulu prendre pour lire ce message !:D)
Bien cordialement
Ozabois
Mon code: Je reçois en retour un message me disant que l'application Outlook n'est pas disponible
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
Option Explicit
Sub Outlook_Email(adresse As String, password As String, destinataire As String)
Dim objOutlookApp As Object
Dim objNamespace As Object
Dim objMailItem As Object
' Créer une instance de l'application Outlook
On Error Resume Next
Set objOutlookApp = CreateObject("Outlook.Application")
If objOutlookApp Is Nothing Then
MsgBox "L'application Outlook n'est pas disponible.", vbExclamation
Exit Sub
End If
On Error GoTo 0
' Accéder au Namespace (espace de noms) Outlook
Set objNamespace = objOutlookApp.GetNamespace("MAPI")
' Connexion au compte Outlook
objNamespace.Logon adresse, password
' Créer un nouvel objet de message
Set objMailItem = objOutlookApp.CreateItem(0)
' Définir les paramètres du message (destinataire, sujet, corps, expéditeur)
With objMailItem
.To = destinataire
.Subject = "Mon objet......"
.Body = "Le texte de mon message ............"
.Send ' Envoyer l'e-mail
End With
' Nettoyer les objets
Set objMailItem = Nothing
objNamespace.Logoff
Set objNamespace = Nothing
Set objOutlookApp = Nothing
End Sub
Sub Appeler_Outlook_Email()
Dim adresse As String
Dim password As String
Dim destinataire As String
adresse = Sheets("Admin").Range("A1").Value
password = Sheets("Admin").Range("A2").Value
destinataire = "asso92.blp@gmail.com"
Outlook_Email adresse, password, destinataire
End Sub |
