Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Thierry,
Tu peux adapter cet exemple à ton besoin. Dans la dernière section de la procédure, tu choisis la ligne de commande que tu veux exécuter et inhibe les autres.
'----------------------------------------- Private Sub EnvoiCourriel()
Dim Dest As String, Objet As String Dim Corps As String, Rep As String
Dest = "" 'Définir le chemin et le fichier à expédier. Rep = "C:Mes documentsclasseur1.xls"
Objet = "Est-ce que tu l'as reçu ce ... fichier?"
Corps = "Bonjour The Boss," & vbCrLf & vbCrLf Corps = Corps & "Je t'en veux un peu puisqu'en rédigeant cette procédure" & vbCrLf Corps = Corps & "Je me suis arraché le dernier poil sur le coco." & vbCrLf & vbCrLf Corps = Corps & "Espérons que cela va fonctionner cette fois pour toi." & vbCrLf & vbCrLf Corps = Corps & "Salutations!" & vbCrLf & vbCrLf Corps = Corps & "MichDenis"
'Envoyer le courriel + fichier attaché de façon automatique SendKeys "%I" & "p" & Rep & "~" & "%s"
End Sub '-----------------------------------------
Salutations!
"Thierry K" a écrit dans le message de news: 4330587f$0$17240$ Bonjour à toutes et à tous
est-il possible, par macro, d'envoyer un fichier EXCEL dont le "chemin" est dans une variable en pièce joint avec outlock express
chemin= d:persomonfichier.xls (par exemple)
en + peut-on compléter l'objet (OE) depuis Excel (avec une variable), ou utiliser une signature
Office Pro 2003 Win XP Pro SP2
Merci d'avance pour vos conseils
pour répondre, enlever w x y z
Thierry K
Bonjour Thierry,
Tu peux adapter cet exemple à ton besoin.
Dans la dernière section de la procédure, tu choisis la ligne de commande que tu veux exécuter et inhibe les autres.
'-----------------------------------------
Private Sub EnvoiCourriel()
Dim Dest As String, Objet As String
Dim Corps As String, Rep As String
Dest = "Destinataire@Fournissseur"
'Définir le chemin et le fichier à expédier.
Rep = "C:Mes documentsclasseur1.xls"
Objet = "Est-ce que tu l'as reçu ce ... fichier?"
Corps = "Bonjour The Boss," & vbCrLf & vbCrLf
Corps = Corps & "Je t'en veux un peu puisqu'en rédigeant cette procédure" & vbCrLf
Corps = Corps & "Je me suis arraché le dernier poil sur le coco." & vbCrLf & vbCrLf
Corps = Corps & "Espérons que cela va fonctionner cette fois pour toi." & vbCrLf & vbCrLf
Corps = Corps & "Salutations!" & vbCrLf & vbCrLf
Corps = Corps & "MichDenis"
Tu peux adapter cet exemple à ton besoin. Dans la dernière section de la procédure, tu choisis la ligne de commande que tu veux exécuter et inhibe les autres.
'----------------------------------------- Private Sub EnvoiCourriel()
Dim Dest As String, Objet As String Dim Corps As String, Rep As String
Dest = "" 'Définir le chemin et le fichier à expédier. Rep = "C:Mes documentsclasseur1.xls"
Objet = "Est-ce que tu l'as reçu ce ... fichier?"
Corps = "Bonjour The Boss," & vbCrLf & vbCrLf Corps = Corps & "Je t'en veux un peu puisqu'en rédigeant cette procédure" & vbCrLf Corps = Corps & "Je me suis arraché le dernier poil sur le coco." & vbCrLf & vbCrLf Corps = Corps & "Espérons que cela va fonctionner cette fois pour toi." & vbCrLf & vbCrLf Corps = Corps & "Salutations!" & vbCrLf & vbCrLf Corps = Corps & "MichDenis"
