Envoi mail Outlook adresse - objet - message et vba Excel

Version imprimable

Bonsoir.

J'ai récupéré et modifié une macro trouvé sur ce forum pour envoyer un mail par Outlook.

J’arrive à récupérer sur la feuille l’adresse mail et l’objet, mais comment récupérer la plage A5:A15 dans le corps du message.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub EnvoiMail_3()
Dim ObjOutlook, Dim ObjOutlookmail, Dim NomFichier As String
 
NomFichier = ThisWorkbook.Name
 
Set ObjOutlook = CreateObject("Outlook.Application")
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
 
    With oBjMail
        .To = Feuil1.Range("B2") 'le destinataire
        .Subject = Feuil1.Range("A3") 'l'objet du mail
        .Body = Worksheets("Feuil1").Range("A5:A15") 'c'est là que ça bug
        '.Attachments.Add Nomfichier
        .Send ' Ici on peut mettre '.Display' pour l'envoyer avec vérification sur outlook
    End With
 
    'ObjOutlook.Quit
 
End Sub

Existe-t-il une solution ?

Merci d’avance pour vos réponses.

J'espère ne pas te dire de bêtise, mais j'avais fait l'équivalent il y a quelques temps et le problème est que le texte du message doit être au format HTML, tu ne peux pas simplement l'utiliser comme ça (surtout si tu veux conserver le format avec les couleurs et tout)...

Je vais essayer de retrouver ce que j'avais fait (et qui fonctionnait) mais je pense que d'autres ont des réponses bien plus complètes à t'apporter !

De mémoire : soit tu abandonnes toute idée de format du texte, et dans ce cas-là, j'imagine qu'une string enveloppant toutes tes cellules fera l'affaire, soit tu devras faire toi-même le pochoir des sauts de lignes, d'où tu veux mettre du gras, des couleurs, etc.

Mais c'est pas compliqué, juste un peu contraignant quand on aimerait que ce soit plus simple :D

Quentin

Resalut,

Je viens de retrouver mon code et j'avais ceci qui fonctionnait très bien :
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 .To = Adddresse(valeur) .CC = "" .BCC = "" .Subject = "Relance action LEAN N°" & Numéro(valeur) Message = " Bonjour " & Pilote(valeur) & ", " Message = Message & "Vous êtes automatiquement notifié(e) par le formulaire de proposition d'amélioration LEAN." & " " Message = Message & "Veuillez, s'il vous plaît, compléter les informations manquantes dans <a href=""" & Application.ActiveWorkbook.FullName & """>ce formulaire</a> concernant l'action suivante : " & " " & " " Message = Message & "Action N°" & "" & Numéro(valeur) & "" & " " Message = Message & "Emetteur : " & Emetteur(valeur) & " (service " & Service(valeur) & ")" & " " Message = Message & "Date d'émission : " & DateEmission(valeur) & " " Message = Message & "Proposition d'amélioration : " & Proposition(valeur) & " " Message = Message & "Acceptée : " & Acceptée(valeur) & " " Message = Message & "Si non acceptée, pourquoi : " & SiNonPourquoi(valeur) & " " Message = Message & "Délai : " & Délai(valeur) & " " Message = Message & "Pilote : " & Pilote(valeur) & " " Message = Message & "Validation : " & Validation(valeur) & " " Message = Message & "Temps de traitement : " & TempsTraitement(valeur) & " jours " Message = Message & "Nombre de relances : " & Relances(valeur) & " " & " " Message = Message & "Bien cordialement," & " " & " " Message = Message & "Ce message a été envoyé automatiquement, ne pas y répondre sauf pour information/question" & " " Message = Message & "Les informations demandées ici doivent être obligatoirement renseignées dans le fichier excel au lien ci-dessous : " & " " Message = Message & "<a href=""" & Application.ActiveWorkbook.Path & """>lien vers le dossier</a>, <a href=""" & Application.ActiveWorkbook.FullName & """>lien vers le fichier</a>." .HTMLBody = Message '.Attachments.Add ("C:\...") .Display '.Send
Ca fait bcp de code avec plein de variables dont tu te fous, mais j'espère que tu vas pouvoir faire quelque chose (surtout, important : le ".HTMLBody =" et ici tu balances ton texte !)

Pour info, c'est l'unique macro que j'avais faite qui envoyait automatiquement des e-mails, donc ne prends pas forcément ça comme la meilleure solution :)

Merci Quentin de t'intéressé à cette discussion.

J'ai trouvé sur une FAQ de ce forum la réponse à mon problème :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub EnvoiPlageCellules()
Dim NomFichier As String
 
ActiveSheet.Range("A6:A18").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
NomFichier = ThisWorkbook.Name
 
With ActiveSheet.MailEnvelope
    '.Introduction = "bonjour , ci joint les données ..."
    '.Item.To = "xxxxxx@orange.fr"
    .Item.To = ActiveSheet.Range("B2")
    .Item.Subject = ActiveSheet.Range("A3")
    '.Item.Attachments.Add Nomfichier
    .Item.Send
End With
End Sub

Petit souci, le mail est bien présent dans la boîte d'envoi, mais comment l'envoyer automatiquement ?

26/05/2015, 11h53
modus57

Bonjour,

J'ai l'impression que je ne suis pas dans le bon forum.

Comment transférer la discussion dans le forum Outlook ?

Merci à vous.
26/05/2015, 13h51
modus57

Re

Finalement j'ai trouvé exactement ce qu'il me faut sur le forum Outlok, l'excellente procédure de joe.levrai inspirée de Theze:

http://www.developpez.net/forums/d15...fichier-excel/
:plusser::chin::merci:
26/05/2015, 14h00
kiki29

Salut, pour info : CDO

Bonjour kiki29

J'essaye d'envoyer un message avec CDO j'ai une erreur du type :
"Erreur d'envoir -2147220975 Le message n'a pas pu etre envoyé vers le serveur SMTP. Le code d'erreur de transport était 0x800ccc15. La réponse du serveur était not available."
Voici le ma procédure :

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
Sub EnvoiMailCdo()
    On Error GoTo Error_send
    Dim oCdo As Object
 
    Set oCdo = CreateObject("CDO.Message")
 
    With oCdo
        With .Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr" 'nom ou IP du serveur SMTP
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25" 'port utilisé
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mon nom de connexion qui est correcte"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mon mdp qui est correcte"
            .Update
        End With
        .Subject = "envoi exemple" ' objet du message
        .From = "xxxxx@orange.fr"  ' adresse de l'expéditeur
        .To = "xxxxx@wanadoo.fr"  ' adresse du destinataire
        .TextBody = "Ceci est un message de test." ' corps du message en format texte brut
        .Send
    End With
 
Fin:
    Set oCdo = Nothing
    Exit Sub
 
Error_send:
    MsgBox "Erreur d'envoi " & Err.Number & "  " & Err.Description
    Resume Fin
 
End Sub

D'où vient le problème.

Merci d'avance pour ta réponse.

27/05/2015, 13h45
joe.levrai

Citation:

Envoyé par modus57

Re

Finalement j'ai trouvé exactement ce qu'il me faut sur le forum Outlok, l'excellente procédure de joe.levrai inspirée de Theze:

http://www.developpez.net/forums/d15...fichier-excel/
:plusser::chin::merci:

Excellente, excellente .... on va dire qu'elle est fonctionnelle, et se contente d'utiliser tout le travail effectué par la fonction qui n'est pas de moi ;)