Courriel avec condition de langue du texte

[lepigoennier]

Bonjour,

Je dois envoyer en fichier attaché un document excel soit en français soit en anglais. L'utilisateur doit cocher s'il veut l'envoyer en français ou en anglais. Lorsque j'exécute ma macro, tout se fait bien sauf le corp du message. Il semble y avoir un bug au niveau de ma condition pour le coprs du courriel. Est-ce que quelqu'un peut éclairer ma lanterne svp?

Merci

Voici mon code :

Sub Mail_workbook_Outlook_1()
    
    Dim OutApp As Object
    Dim OutMail As Object
    Dim adresse As String
    Dim message As String
    Dim sujet As String
    Dim LeNom As String
    Dim messageanglais As String
    Dim messagefrancais As String
       
        
    Sheets("Fournisseur").Visible = True
    
 ' ------------------------------  Feuille si BAA demandé
    
    Sheets("Acheteur").Select
     
    If Range("C30").Value = 1 Then
    Sheets("BAA").Visible = True
    Else 
    Sheets("BAA").Visible = False
    End If


    Sheets("Acheteur").Select
    ActiveWindow.SelectedSheets.Visible = False
    
    Sheets("Fournisseur").Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  
' ------------------------------  Protection du classeur et des feuilles
  
    Worksheets("Fournisseur").Protect Password:="achat", DrawingObjects:=True
    ActiveWorkbook.Protect Password:="achat", Structure:=True, Windows:=False
    
    LeNom = Range("A9")
    
    ActiveWorkbook.SaveAs LeNom
    
    adresse = Range("C2")
    partnumber = Range("A9")
    messageanglais = "Good day, ..."
    messagefrancais = "Bonjour, ..." 
    
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    ThisWorkbook.Save
 
   ' ------------------------------   envoi du message français   
   
 If Range("D28").Value = 1 Then
        
    On Error Resume Next
    With OutMail
        .To = adresse
        .CC = ""
        .BCC = ""
        .Subject = partnumber
        .Body = messsagefrancais
        .Attachments.Add ActiveWorkbook.FullName
        .Attachments.Add ("c:\Conditions1.pdf")
        .Display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
    On Error Resume Next

    
    ' ---------------------------  envoi du message anglais    
    Else
    
        On Error Resume Next
    With OutMail
        .To = adresse
        .CC = ""
        .BCC = ""
        .Subject = partnumber
        .Body = messsageanglais
        .Attachments.Add ActiveWorkbook.FullName
        .Attachments.Add ("c:\Conditions1.pdf")
        .Display
    End With
    On Error GoTo 0

    End If

    Set OutMail = Nothing
    Set OutApp = Nothing
    
   End Sub

 

[camarchepas]

Re : Courriel avec condition de langue du texte

Bonjour ,

Sans fichier , pas facile à débugger , mais le code est pas trés clair avec tous ces traitement d'erreur

voici un code à trés légérement adapter
Ah oui , ne pas oublier de référencer outlook dans la bibliotheque

Sub Mail()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail As Object
Dim Destinataire As String, Messageanglais As String, messagefrancais As String
Dim Anglais As Boolean
    messagefrancais = " un deux trois"
    Messageanglais = " One two tree"
    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
    Destinataire = "Lui@hotmail.fr"
     With oBjMail
       .To = Destinataire ' le destinataire
       .cc = "Etlautre@hotmail.fr"
       .Subject = "Mon titre"          ' l'objet du mail
        If Anglais Then
          .Body = Messageanglais
         Else
          .Body = messagefrancais
        End If
       .Attachments.Add "c:\appli_excel\exportpdf.pdf"
       .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
     ' Stop ' pour test ainsi que display
     .Send
    End With
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing

End Sub

 

[lepigoennier]

Re : Courriel avec condition de langue du texte

Merci beaucoup