Envoi mail sans outlook [Fermé]

Signaler
-
 quent -
Bonjour,

j'aurais aimez savoir si il est possible d'envoyer un mail avec excel sachant que je n'ai pas outlook.

merci d'avance pour vos réponses

4 réponses

Messages postés
7223
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
21 janvier 2021
603
Bonjour,

Essaie cela qui fonctionne avec Windows Live\Mail:

Option Explicit
Private Sub CommandButton1_Click()
    Dim MailAd As String
    Dim Msg As String
    Dim Subj As String
    Dim URLto As String
    Dim Maplage As Range
    Dim cell
    Sheets("Feuil1").Select
    Set Maplage = Range("A1:B4") 'definition de la plage contenant le Message
    MailAd = Range("A1")
    Subj = Range("A4")
    'boucle qui récupère le texte du message
   For Each cell In Maplage 'dans chaque cellule de MaPlage...
        Msg = Msg & "  " & cell.Value & "%0D%0A" ' Message = Message + Valeur de ma cellule
    Next 'Suite de la boucle
 URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
    ActiveWorkbook.FollowHyperlink Address:=URLto
   End Sub


il faudra juste adapter les cellules
Merci beaucoup d'avoir répondu,
Je vais tester cela des que je pourrais.
Messages postés
12235
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
6 janvier 2021
2 557
Bonjour à vous deux,

Une alternative via l'objet CDO.
Elle peut être simplifiée selon le serveur mail choisit.
bonjour,
cs_Le Pivert, j'ai essayer ta methode mais elle ne fait pas exactement ce que je voulais : elle crée un nouveau mail avec les renseignements que je lui donne mais il n'envoie pas le mail, il reste sur la page en attendant qu'on clique sur envoyer alors que j'aimerais qu'il envoie le mail automatiquements.
merci quand meme de ta reponse