Discussion :

[khadidja05]

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.

[mercatog]

Bonjour

Quel code tu utilises?

[khadidja05]

Bonjour

Quel code tu utilises?

j'utilise le code vba

[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.

[khadidja05]

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 :

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
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

[mercatog]

Sans garantie

Ajoute ces lignes

Code :

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

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