VBA : Envoyer un Email via Outlook 2007

Le dernier article nous a permis d’appréhender la relation entre Excel et un navigateur Web, voici comment gérer la relation entre Excel et votre messagerie Outlook…

- 1 – Dans cet exemple l’utilisateur veut à partir de son classeur actif, envoyer par mail un autre classeur Excel qu’il choisira sur son disque dur. Le programme lui demandera l’adresse Email du destinataire puis effectuera l’envoie en arrière plan.

 
- 2 – Pour un bon fonctionnement du programme vous aurez bien sur au préalable chargé la bibliothèque des objets Outlook. (Si vous n’êtes pas sur de la démarche, lisez l’article du 9 Mai 2009)

- 3 –Voici le code, à vous de l’adapter.

Sub envoiEmail()
Dim appOutlook As Outlook.Application
Dim message As Outlook.mailitem
Dim Adresse As String
Dim ouverture$
On Error GoTo sierreur:
'Lance une session OutLook
Set appOutlook = CreateObject("outlook.Application")
'Demande de l'adresse email du destinataire
Adresse = InputBox("Entrez une adresse Email ?", "Envoyer un Email")
'Crée un nouveau message
Set message = appOutlook.createitem(olMailItem)
With message 'paramétrons le message
.Subject = "ENVOYER UN MAIL A PARTIR D'EXCEL"
'Paramétrage du champ Objet :
.Body = "Ceci est le corps du message" & Chr(13) & "Cordialement" & Chr(13) & "Olivier"
'Paramétrage du corps du texte contenu et signature
.BodyFormat = olFormatHTML
'Choix du format du message ici html
.Recipients.Add (Adresse)
'Ajout de l'adresse dans le champ A...
ouverture = Application.GetOpenFilename( _
filefilter:="Fichiers Excel (*.xls),*.xls", _
Title:="Ouvrir", _
MultiSelect:=False)
Workbooks.Open ouverture
'Ouverture du classeur choisi pour être envoyé en pièce jointe
.Attachments.Add ouverture
'Paramétrage du champ Attaché :
.send
'Envoie du message
ActiveWorkbook.Close
'Fermeture du classeur choisi pour être envoyé en pièce jointe
End With
appOutlook.Quit
'fermeture de Outlook
Set appOutlook = Nothing
'J’ai du gérer l'erreur du au clic sur le bouton annuler du inputbox
sierreur:
MsgBox "Vous devez saisir une adresse Email" & Chr(10) _
& "puis cliquer sur OK", vbOKOnly + vbCritical, "ATTENTION"
End Sub

Partager |

VBA : Publier sur Intranet

Classeur entier ou sélection de cellule, il est assez simple de convertir automatiquement en HTML des données d’Excel pour les publier dans votre navigateur Web préféré…

- 1 – Dans ce premier exemple une simple conversion d'une plage de cellule en html.

Sub PublierSurIntranet()
Dim MaPageWeb As PublishObject
'creation de l'objet qui contiendra la page web
Set MaPageWeb = ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:="c:\publication\testpublication.html", _
Sheet:="Mabase", _
Source:="A1:G15", _
HtmlType:=xlHtmlStatic, _
Title:="Liste des Stagiaires")
'Sourcetype = Ici le type de données est un ensemble de cellules
'Filename = le classeur est converti en html dans le chemin réseau indiqué
'Sheet = nom de l'onglet de la feuille à convertir
'Source = adresse de la plage à convertir
'HtmlType=Indication s'il s'agit d'un objet statique ou d'un composant office Web
'Title = Titre de la page + balise
With MaPageWeb
.Publish (True)
'publication de la page
.AutoRepublish = True
'repercute l'enregistrement du classeur sur la page web
End With
End Sub

- 2 – Dans ce second exemple c'est l'ensemble du classeur qui est converti en html, puis on ouvre directement le fichier html dans Internet Explorer

Sub PublierSurIntranet2()
Dim appIE
Dim MaPageWeb2 As PublishObject
Dim chemin As String
'la conversion s'effectue dans le chemin réseau du classeur
chemin =ThisWorkbook.Path & "/testpublication2.html"
Set MaPageWeb2 =ActiveWorkbook.PublishObjects.Add _
(xlSourceWorkbook, chemin _
, , , xlHtmlStatic, , "Liste des Stagiaires")
With MaPageWeb2
.Publish (True)
End With
'Pour ouvrir ie une bonne vieille commande Shell, « les anciens me comprendrons… »
appIE = Shell("C:\Program Files\Internet Explorer\iexplore.exe " & chemin, vbNormalFocus)
End Sub

Partager |