envoi d'une selection de cellules par email

**MAYA_74** · 22/10/2012, 11h01

bonjour à tous
je suis debutant en code vba, et je souhaiterai envoyer par email via outlook une selection de cellule (A2:AA55)d'une feuille (formulaire)à la fois en piece jointe pdf, et dans le corps du mail.
le code:
par un bouton, ouverture d'un nouveau message outlook, avec choix des destinataires, sujet: "Codification Article", insertion automatique de la selection en piece jointe pdf,
et copie dans le corps du mail:
bonjour,
codification.............
copie de la selection (a2:AA55)
bonne reception.

si quelqu'un a celà en magasin je suis preneur
merci d'avance

**QuestVba** · 22/10/2012, 11h57

Bonjour,

Voici un code à adapter

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
Sheets("En cours").Select
Dim strHTML As String
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim olFormatHTML As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
 
 
    SigString = Environ("appdata") & "\Microsoft\Signatures\Sans titre.htm"
 
    If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
        Signature = ""
    End If
 
    On Error Resume Next
 
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour, <BR><BR>Voici mes notifications<BR><BR>"
strHTML = strHTML & "<TABLE BORDER>"
 
For i = 1 To 5 'nombre de lignes (exemple plage A1:B5)
 
    strHTML = strHTML & "<TR halign='middle'nowrap>"
    For j = 1 To 9 'nombre de colonnes
    strHTML = strHTML & "<TD bgcolor='yellow'align='center'><FONT COLOR='blue'SIZE=3>" _
            & Cells(i, j) & "</FONT></TD>"
    Next j
    strHTML = strHTML & "</TR>"
 
Next i
 
strHTML = strHTML & "</TABLE>"
 
strHTML = strHTML & "<BR><BR><BR>" & "Ma Signature"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
 
 
 
    With OutMail
        .To = "....@....be"
        .CC = ""
        .BCC = ""
        .Subject = "Notifications"
        .BodyFormat = olFormatHTML
        .HTMLBody = strHTML
        .Display
    End With
    On Error GoTo 0

envoi d'une selection de cellules par email

Excel

Discussions similaires

Partager

Partager