envoi mail sans outlook

Question

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

cs_Le Pivert · Answer

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

quent · Answer

Merci beaucoup d'avoir répondu,
Je vais tester cela des que je pourrais.

pijaku · Answer

Bonjour à vous deux,

Une alternative via l'objet CDO.
Elle peut être simplifiée selon le serveur mail choisit.

quent · Answer

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

Envoi mail sans outlook

4 réponses

Discussions similaires

Newsletters