Insérer corps de message avec accentuation dans email via excell et VBA
J'aimerais dans le corps de message intégrer un texte avec des accents et de la ponctuation, actuellement je n'y arrive pas car à chaque fois que je met un accent il enlève la lettre, donc dans la macro email, j'ai enlever tous les accents et les ponctuations et modifier le texte
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
| 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 Primagaz" & 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 = "xxxx@nicecotedazur.org"
.CC = "rxx@nicecotedazur.org;xxxd@nicecotedazur.org;dxxx@nicecotedazur.org;cxxx@nicecotedazur.org"
.Attachments.Add (sRep & "\" & sNomFic)
.Subject = "Demande d'enlvement de bouteilles de gaz Primagaz sur Nice Ouest"""
.Body = "Nice, le " & Format(Date, "dd/mm/yy") & vbCrLf & vbCrLf
.Body = .Body & "Bonjour Gilles," & vbCrLf
.Body = .Body & "Objet : Enlevement bouteilles de Gaz PRIMAGAZ Nice Ouest" & vbCrLf & vbCrLf
.Body = .Body & "Tu trouveras ci-joint une demande pour l'enlvement de bouteilles Primagaz sur Nice Ouest " & vbCrLf & vbCrLfff
.Body = .Body & "Merci a toi de faire le necessaire" & vbCrLf & vbCrLf
.Body = .Body & "Dans l'attente, salutations cordiales" & vbCrLf
.Display
.Send 'envoi automatique
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub |
Mais j'aimerais vraiment pouvoir intégrer dans mon corps de message un texte de ce type :
Madame bonjour,
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.
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.
Je vous demande de faire collecter le reliquat de bouteilles qui pourrait être arrivé entre cette demande et votre intervention.
Merci de bien vouloir me confirmer une date de passage afin que nous puissions nous organiser.
Bien cordialement
Merci pour l'aide
