Envoi e-mail automatique via Excel

**nourmske** · 30/10/2014, 15h01

Bonjour,

J'utilise un tableau Excel avec des équipements à contrôler à une date précise et je voudrais m'envoyer le tableau en pièce jointe sur une ou plusieurs adresse e-mail via Outlook.

Je ne sais pas si cela est possible.

Merci de me dire comment faire si cela est possible.

**QuestVba** · 30/10/2014, 16h10

Bonjour,

Voici ce que j'utilise. Attention, il met le tableau dans le corps du texte. Il ne te reste plus grand chose à faire ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
54
55
56
57
58
Sub EnvoiMail()
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''' Création du mail
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
'préparation du mail
 
Sheets("Block").Select
 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
 
'''''''''''''''''''''''''''''''''''''
strHTML = ""
strHTML = strHTML & "<HEAD>" & "</HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour, <BR><BR>Voici la liste des lots bloqués.<BR><BR>"
strHTML = strHTML & "<table style='border: solid 1px black' cellpadding='10'>"   '"<TABLE BORDER>"
 
 
For i = 1 To ActiveWorkbook.Sheets("Block").Range("A65536").End(xlUp).Row
 
    strHTML = strHTML & "<TR halign='middle'nowrap>"
    For j = 1 To 6 'nombre de colonnes
    strHTML = strHTML & "<TD style=' border-collapse:collapse; border: solid 1px black' bgcolor='blank'align='center'><FONT COLOR='blue'SIZE=3>" _
            & Cells(i, j) & "</FONT></TD>"
    Next j
    strHTML = strHTML & "</TR>"
 
Next i
strbody = strHTML & "</Table>"
 
 
'''''''''''''''''''''''''''''''''''''''''
 
    On Error Resume Next
 
    With OutMail
        .display
        '.To = "coucou@dgkfhjkhl.be"
        .CC = ""
        .BCC = ""
        .Subject = "Block notifications"
        .HTMLBody = strbody & "<br>" & "Bien à Vous," & .HTMLBody & "</BODY>"
        .display '.Send
    End With
 
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
 
End sub

Des pistes :

http://www.developpez.net/forums/d12...excel-outlook/
http://www.developpez.net/forums/d11...k-macro-excel/
http://www.developpez.net/forums/d12...-sous-outlook/

Envoi e-mail automatique via Excel

Excel

Discussions similaires

Partager

Partager