Envoi de message via Excel VBA mais le message reçu a des points d'interrogations

Bonjour,
j'ai une macro qui créer des fichiers pdf et l'envoie via gmail, j'utilise un userform pour écrire le sujet et l'intitulé, tous fonctionne bien si le message et le sujet est écrit en français , mais quand c'est écrit en arabe le message reçue est des points d’interrogations, je pense que c'est un problème de codage,
si quelqu’un à une solution.

Bonjour

Quel code tu utilises?

Citation:

Envoyé par mercatog

Bonjour

Quel code tu utilises?

j'utilise le code vba

Certes nous somme bien dans le forum vba excel .
J'avais demandé ton code que tu utilise pour pouvoir voir si on peux l'adapter adapter.

Citation:

Envoyé par mercatog

Certes nous somme bien dans le forum vba excel .
J'avais demandé ton code que tu utilise pour pouvoir voir si on peux l'adapter adapter.

voici le code :

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Sub PrintSalarySlips(ByVal emailEmetteur As String, ByVal mdp As String, ByVal intitule As String, ByVal Message As String)
'Dim emailEmetteur, mdp, sujet, intitule As String
'emailEmetteur = connexion.TextBox1.Value
Dim nbr As Integer
nbr = Sheet1.UsedRange.Rows.Count - 3
    a = 1
   i = 4
    Do While a <= nbr
    Dim myMail As CDO.Message
Set myMail = New CDO.Message
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = emailEmetteur
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mdp
 
myMail.Configuration.Fields.Update
    'chemin = Application.GetOpenFilename(, , ThisWorkbook.Path & "\" & Filename)
 
 
    EmpID = Sheet1.Range("B3").Offset(a, 0).Value
 
    Sheet2.Range("C3").Value = EmpID
    Filename = Sheet2.Range("C3").Value & " - " & Sheet1.Range("C" & i).Value & ".pdf"
 
  '  Sheet2.PrintOut from:=1, to:=1
   Sheet2.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & Filename
  'Dim chemin As String
  'chemin = ThisWorkbook.Path & "\" & Filename
   With myMail
        .Subject = intitule
        .From = emailEmetteur
       ' .To = Sheet2.Range("B20").Value
       .To = Sheet1.Range("O" & i).Value
        .CC = ""
        .BCC = ""
        .TextBody = Message
        .AddAttachment (ThisWorkbook.Path & "\" & Sheet2.Range("C3").Value & " - " & Sheet1.Range("C" & i).Value & ".pdf")
End With
On Error Resume Next
'Kill (ThisWorkbook.Path & "\" & Filename)
myMail.Send
Set myMail = Nothing
ChDrive ("C")
ChDir (ThisWorkbook.Path)
Kill Sheet2.Range("C3").Value & " - " & Sheet1.Range("C" & i).Value & ".pdf"
'k = myMail.Attachments.Count
'Set myMail.Attachments = Null
 
' myMail.Attachments.Delete
'If (a <> 1) Then Kill ThisWorkbook.Path & "\" & Filename
'Set fs = CreateObject("Scripting.FileSystemObject")
'    Set f = fs.GetFile(chemin)
 '   f.Delete
'MsgBox("Mail has been sent")
    '    While myMail.Attachments.Count > 0
          'Get the information of removed attachments
    '             myMail.Attachments.Delete
 
 
    '    Wend
    i = i + 1
    a = a + 1
    'On Error Resume Next
 
    Loop
    Set myMail = Nothing
End Sub

Sans garantie

Ajoute ces lignes

Code:

1
2
3
    myMail.BodyPart.Charset = "utf-8"
    myMail.TextBodyPart.Charset = "utf-8"
    myMail.HTMLBodyPart.Charset = "utf-8"

Citation:
Envoyé par mercatog
Sans garantie

Ajoute ces lignes
Code:

1 2 3 myMail.BodyPart.Charset = "utf-8" myMail.TextBodyPart.Charset = "utf-8" myMail.HTMLBodyPart.Charset = "utf-8"
merci beaucoup , ça fonctionne très bien, j'ai seulement utiliser .BodyPart.Charset = "utf-8"

Content pour toi cousine. 1 2 3