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
| Sub Mail()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim S As Shape
Dim sNomFic As String, sRep As String, WshShell As Object
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
' Cr_er une instance Windows Script pour retrouver le chemin du bureau
Set WshShell = CreateObject("WScript.Shell")
sRep = WshShell.SpecialFolders("Desktop")
Set WshShell = Nothing
' D_finit le nom du fichier _ enregistrer
sNomFic = "Bouteilles Butagaz" & Format(Date, "yyyymmdd") & ".pdf"
' Enregistrer la feuille en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "gxx@nicecotedazur.org"
.CC = "rxx@nicecotedazur.org;sxx@nicecotedazur.org;dxx@nicecotedazur.org;cxx@nicecotedazur.org"
.Attachments.Add (sRep & "\" & sNomFic)
.Subject = "Demande d'enlevement de bouteilles de gaz Butagaz Nice Ouest"
.Htmlbody = .Htmlbody & "Nice, le " & Format(Date, "dd/mm/yy") & <br> & <br>
.Htmlbody = .Htmlbody & "Madame bonjour," & <br> & <br>
.Htmlbody = .Htmlbody & "Objet : Enlevement bouteilles de Gaz BUTAGAZ Nice Ouest" & <br> & <br>
.Htmlbody = .Htmlbody & "Par la présente et conformément au décret n° 2012-1538 du 28 décembre 2012, complété par le décret du 24 juin 2016 clarifiant la collecte gratuite en déchetterie des bouteilles hors consigne, je vous prie de bien vouloir trouver ci-joint, une nouvelle demande d’enlèvement de bouteilles de gaz de votre marque sur la déchetterie de Nice Est, sise angle Boulevard Jean Baptiste VERANY – Rue Georges CHAPEL." & <br> & <br> .Htmlbody = .BHtmlbody & "Merci a toi de faire le necessaire" & vbCrLf & vbCrLf
.Htmlbody = .Htmlbody & "Cette déchetterie reçoit beaucoup de flux de déchets et notamment de bouteilles de gaz qui arrivent aussi par l’intermédiaire des différents services de collecte (elles sont récupérées sur la voie publique), je vous demande de bien vouloir intervenir afin de les récupérer." & <br> & <br>
.Htmlbody = .Htmlbody & "Je vous demande de faire collecter le reliquat de bouteilles qui pourrait être arrivé entre cette demande et votre intervention." & <br> & <br>
.Htmlbody = .Htmlbody & "Merci de bien vouloir me confirmer une date de passage afin que nous puissions nous organiser." & <br> & <br>
.Htmlbody = .Htmlbody & "Bien cordialement," & <br> & <br>
.Display
.Send 'envoi automatique
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub |
Insérer corps de message avec accentuation dans email via excell et VBA
Répondre avec citation
je la testerai sur PC !
Partager