envoyer une feuille par mail...

[Cyril Naudes]

Bonjour à tous,

voici mon problème : j'aimerais envoyer une feuille excel par email lorsque la personne utilisant cette feuille clique sur un bouton : autrement dit, j'aimerai associer une macro VBA qui me permet d'envoyer la feuille en cours par mail... (l'aide ne m'éclaire pas beaucoup sur ce pb ...)

merci.

 

[STéphane]

bonjour

activesheet.copy 'créer un nouveau classeur ne contenant que la feuille à envoyer
activeworkbook.sendmail ...... 'cherche les paramètres de la méthode sendmail
activeworkbook.close savechanges:=false 'fermer sans sauvegarder le classeur crée

bye
stephane

 

[Cyril Naudes]

Merci, le a l'air d'être bon, mais j'ai un message d'erreur (il est attaché au mail.) et je ne vois pas ce que ca pourrait vouloir dire; car redemarrer le serveur de mail c'est un peu impossible...

voici le code associé à la macro :

Sub envoyer_Click()
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="mon adresse email"
ActiveWorkbook.Close savechanges:=False
MsgBox ("Feuille envoyée au support center")
End Sub



merci
Cyril

 

[Baroude]

Mois j'utilise ce code ci-dessous, cela fonctionne bien, j'ai crée un bouton dans ma feuille avec la macro lié.

Sub SendMail_Outlook()

ActiveWorkbook.Save

Dim fichier As String
fichier = ActiveWorkbook.FullName

Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String

Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = "adresse_email_destinataire"
.CC = "adresse_email_copie"
.Subject = "sujet"
.Body = "corps du message"
.Attachments.Add fichier
'.Display
.Send

End With

End Sub


Sub Quit_Outlook()
'Demander à Excel de Quitter Outlook
Set myOlApp = CreateObject("Outlook.Application")
myOlApp.Quit
End Sub

 

[Cyril Naudes]

Merci pour ton code qui est super propre, mais le seul problème c'est que je suppose que tu bosses sous VB 6 car je n'ai pas les applications outlook (je travaille avec VB 4 ou 5 (avec Office 97 : et oui je sais ... 😉 )

merci encore,

Cyril

 

[STéphane]

bonjour

la méthode qui t'ait proposée suppose effectivement que tu es Microsoft Outlook, or si tu as outlook express ou un autre logiciel, il vaut mieux que tu te bases sur la méthode sendmail, le courrier sera alors émis avec ton logiciel de courrier par défaut.


bye
stephane

ps cf : <http://xlbysteph.free.fr/aideinformatique/web.htm>