Bonjour, pour les besoins de mon boulot, je souhaite réaliser une macro me
permettant d'envoyer par e-mail le fichier excel 2003 (où la macro figure
bien entendu). Or, le problème que je rencontre est que la macro s'arrete
automatiquement à l'ouverture de Microsoft Outlook 2003.
Merci d'avance
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
RV
Bonsoir,
Sub Courriel()
Dim dest As String Dim obj As String Dim mess As String Sheets("feuille de ton choix").Select dest = Range("cellule de ton choix") 'ou se trouve l'adresse mail obj = "ce que tu veux mettre" ActiveWorkbook.SendMail dest, obj MsgBox "Message envoyé sur " & dest, vbOKOnly
End Sub
Ce code devrait convenir, mais il existe d'autres façons de faire.
Cordialement
Hervé "Sébastien HENRY" a écrit dans le message de news:
Bonjour, pour les besoins de mon boulot, je souhaite réaliser une macro me permettant d'envoyer par e-mail le fichier excel 2003 (où la macro figure bien entendu). Or, le problème que je rencontre est que la macro s'arrete automatiquement à l'ouverture de Microsoft Outlook 2003. Merci d'avance
Bonsoir,
Sub Courriel()
Dim dest As String
Dim obj As String
Dim mess As String
Sheets("feuille de ton choix").Select
dest = Range("cellule de ton choix") 'ou se trouve l'adresse mail
obj = "ce que tu veux mettre"
ActiveWorkbook.SendMail dest, obj
MsgBox "Message envoyé sur " & dest, vbOKOnly
End Sub
Ce code devrait convenir, mais il existe d'autres façons de faire.
Cordialement
Hervé
"Sébastien HENRY" <sebastien.henry6@wanadoo.fr> a écrit dans le message de
news:uZDldCJMFHA.2580@TK2MSFTNGP09.phx.gbl...
Bonjour, pour les besoins de mon boulot, je souhaite réaliser une macro me
permettant d'envoyer par e-mail le fichier excel 2003 (où la macro figure
bien entendu). Or, le problème que je rencontre est que la macro s'arrete
automatiquement à l'ouverture de Microsoft Outlook 2003.
Merci d'avance
Dim dest As String Dim obj As String Dim mess As String Sheets("feuille de ton choix").Select dest = Range("cellule de ton choix") 'ou se trouve l'adresse mail obj = "ce que tu veux mettre" ActiveWorkbook.SendMail dest, obj MsgBox "Message envoyé sur " & dest, vbOKOnly
End Sub
Ce code devrait convenir, mais il existe d'autres façons de faire.
Cordialement
Hervé "Sébastien HENRY" a écrit dans le message de news:
Bonjour, pour les besoins de mon boulot, je souhaite réaliser une macro me permettant d'envoyer par e-mail le fichier excel 2003 (où la macro figure bien entendu). Or, le problème que je rencontre est que la macro s'arrete automatiquement à l'ouverture de Microsoft Outlook 2003. Merci d'avance
Sébastien HENRY
Merci RV je testerai demain à mon boulot
"RV" a écrit dans le message de news:
Bonsoir,
Sub Courriel()
Dim dest As String Dim obj As String Dim mess As String Sheets("feuille de ton choix").Select dest = Range("cellule de ton choix") 'ou se trouve l'adresse mail obj = "ce que tu veux mettre" ActiveWorkbook.SendMail dest, obj MsgBox "Message envoyé sur " & dest, vbOKOnly
End Sub
Ce code devrait convenir, mais il existe d'autres façons de faire.
Cordialement
Hervé "Sébastien HENRY" a écrit dans le message de news:
Bonjour, pour les besoins de mon boulot, je souhaite réaliser une macro me permettant d'envoyer par e-mail le fichier excel 2003 (où la macro figure bien entendu). Or, le problème que je rencontre est que la macro s'arrete automatiquement à l'ouverture de Microsoft Outlook 2003. Merci d'avance
Merci RV je testerai demain à mon boulot
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
eFN7nTJMFHA.3420@tk2msftngp13.phx.gbl...
Bonsoir,
Sub Courriel()
Dim dest As String
Dim obj As String
Dim mess As String
Sheets("feuille de ton choix").Select
dest = Range("cellule de ton choix") 'ou se trouve l'adresse mail
obj = "ce que tu veux mettre"
ActiveWorkbook.SendMail dest, obj
MsgBox "Message envoyé sur " & dest, vbOKOnly
End Sub
Ce code devrait convenir, mais il existe d'autres façons de faire.
Cordialement
Hervé
"Sébastien HENRY" <sebastien.henry6@wanadoo.fr> a écrit dans le message de
news:uZDldCJMFHA.2580@TK2MSFTNGP09.phx.gbl...
Bonjour, pour les besoins de mon boulot, je souhaite réaliser une macro
me
permettant d'envoyer par e-mail le fichier excel 2003 (où la macro figure
bien entendu). Or, le problème que je rencontre est que la macro s'arrete
automatiquement à l'ouverture de Microsoft Outlook 2003.
Merci d'avance
Dim dest As String Dim obj As String Dim mess As String Sheets("feuille de ton choix").Select dest = Range("cellule de ton choix") 'ou se trouve l'adresse mail obj = "ce que tu veux mettre" ActiveWorkbook.SendMail dest, obj MsgBox "Message envoyé sur " & dest, vbOKOnly
End Sub
Ce code devrait convenir, mais il existe d'autres façons de faire.
Cordialement
Hervé "Sébastien HENRY" a écrit dans le message de news:
Bonjour, pour les besoins de mon boulot, je souhaite réaliser une macro me permettant d'envoyer par e-mail le fichier excel 2003 (où la macro figure bien entendu). Or, le problème que je rencontre est que la macro s'arrete automatiquement à l'ouverture de Microsoft Outlook 2003. Merci d'avance
