Ligne de commande transfert d'information pour courriel

Bonjour , j'aurais besoin de changer l'information dans la section
pour que ce soit la ligne 1 et 2 de mon tableau qui soit tranféré au complet directement

xMailBody = "Body content" & vbNewLine & vbNewLine & _
"=This is line 1" & vbNewLine & _
"This is line 2"

merci :)

Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Body content" & vbNewLine & vbNewLine & _
"=This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "my email adresse "
.CC = ""
.BCC = ""
.Subject = "Ouverture de JOB"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Bonjour Mathieu

1) merci de mettre le code donné entre balise comme l'indique la charte

2) merci de joindre un fichier anonymisé comme le conseil la charte

Merci de ta compréhension

A+

Bonjour ,

voici le fichier ,

le code est le suivant (Je ne comprend pas votre requete (mettre entre balise)

Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Body content" & vbNewLine & vbNewLine & _
"=This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "my email adresse "
.CC = ""
.BCC = ""
.Subject = "Ouverture de JOB"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Edit modo : voilà ce que je voulais dire

merci

ah merci , maintenant je comprend ! désolé