Utilisation de l'objet MailEnveloppe
wil2168
-
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
bonjour
j'essaye de passer des tableau excel dans le corps d'un mail
j'ai trouvé des exemples avec l'utilisation de l'objet MailEnvelope.Item
mais cela ne fonctionne pas sur mon PC
ci-dessous mon code
Sub courriel()
'déclaration des variables
Dim mafeuille As Worksheet, tto As String
'affectation des variables
Set mafeuille = ThisWorkbook.Sheets("Feuil1")
mafeuille.Range("B6:C12").Select
With mafeuille.MailEnvelope.Item
tto = mafeuille.Range("AL2").Value
.to = tto 'destinataire
.Subject = mafeuille.Range("AL4").Value
.display
End With
End Sub
lorsque que j'essaye de faire tourner le code sur mon PC j'ai juste les cellules B6:C12 en sélection
Pouvez vous m'aider?
Merci
j'essaye de passer des tableau excel dans le corps d'un mail
j'ai trouvé des exemples avec l'utilisation de l'objet MailEnvelope.Item
mais cela ne fonctionne pas sur mon PC
ci-dessous mon code
Sub courriel()
'déclaration des variables
Dim mafeuille As Worksheet, tto As String
'affectation des variables
Set mafeuille = ThisWorkbook.Sheets("Feuil1")
mafeuille.Range("B6:C12").Select
With mafeuille.MailEnvelope.Item
tto = mafeuille.Range("AL2").Value
.to = tto 'destinataire
.Subject = mafeuille.Range("AL4").Value
.display
End With
End Sub
lorsque que j'essaye de faire tourner le code sur mon PC j'ai juste les cellules B6:C12 en sélection
Pouvez vous m'aider?
Merci
A voir également:
- Utilisation de l'objet MailEnveloppe
- Utilisation chromecast - Guide
- Télécharger gratuitement notice d'utilisation - Guide
- Vente objet occasion entre particulier - Guide
- Objet interdit en cabine ryanair - Guide
- Identifier un objet à partir d'une photo - Guide
