mail

[jy.bedenes]

je voudrais envoyer par mail la feuille active d'un classeur Excel sachant que l'adresse du destinataire est stoquée sur cette feuille en C8. La macro d'envoi doit pouvoir fonctionner avec plusieurs logiciels de gestion du courrier électronique (outlook, firefox...).
J'ai essayé d'utiliser la macro de SilkyRoad mais j'ai le message d'erreur :
Erreur d'exécition '-2147220960 (80040220)':
la valeur de configuratiojn "SendUsing" est non valide.

le problème vient aparamment de la ligne ".send"
Pourriez-vous m'aider ?
merci et "Bonne Année"


la macro utilisée est celle-ci :

Sub EnvoiMail()
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim Temp As String
Dim destinataire As String
Dim CdoMessage As Object
Dim Fichier As String

Set Sourcewb = ActiveWorkbook
ActiveSheet.Copy
Set Destwb = ActiveWorkbook
destinataire = "'" & Range("C8") & "'"
Temp = ThisWorkbook.Path & Application.PathSeparator & "Toto.xls"

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With

Destwb.SaveAs Temp
Fichier = Destwb.Path & Application.PathSeparator & Destwb.Name
Destwb.Close
Application.DisplayAlerts = True

Set CdoMessage = CreateObject("CDO.Message")
With CdoMessage
.Subject = "Fiche Navette Accompagnement Educatif"
.From = "Delattre.laure@ac-creteil.fr"
.To = destinataire
.CC = ""
.BCC = ""
.TextBody = "Veuillez trouver ci-joint la fiche navette Accompagnement Educatif à actualiser et à me retourner le plus rapidement possible"
.AddAttachment Fichier
.Send
End With

Application.ScreenUpdating = True

Set CdoMessage = Nothing
Kill Fichier
End Sub

 

[MJ13]

Re : mail

Bonjour,

Attention chaque logiciel doit avoir sa configuration de code (Outlook fonctionne différememnt de Outlook express et idem pour les autres comptes de messageries).

Autrement il faut souvent cocher une Dll type Outlook VXX dans le VBA taper Alt +F11 puis \outils \référence.