Envoyer un e -ail de Microsoft Office Excel avec Visual Basic pour Applications ( VBA ) peut vous faire gagner du temps lorsque vous devez envoyer des données à partir de votre feuille de calcul. Une approche consiste à utiliser le système de gestion de messagerie Microsoft Outlook pour envoyer un e-mail à partir d'Excel . Dans Excel , vous pouvez utiliser VBA pour automatiser des tâches manuelles telles que l'envoi d' un e-mail . Avec VBA, vous pouvez utiliser la bibliothèque d'objets Microsoft Outlook pour automatiser email des fonctions telles que la création et l'envoi de courriels . Instructions
1

lancement Excel et cliquez sur l'onglet "Developer " . Cliquez sur " Visual Basic " pour ouvrir la fenêtre de Microsoft Visual Basic . Cliquez sur le menu «Outils» et cliquez sur « Références ». Faites défiler la liste et cochez la case à côté de " Microsoft 2

Cliquez sur le menu "Insertion " et cliquez sur "Module" pour insérer un nouveau module de code . Tapez la commande suivante pour créer une nouvelle procédure pour envoyer email:

Sous sendEmail ()

On Error GoTo Err_sendEmail :
3

Tapez la commande suivante pour déclarer vos variables :

oLookApp As Outlook.application

oLookMail As Outlook.MailItem

dataToSend Dim As String
4

Tapez le suivantes pour créer les objets Outlook :

Set oLookApp = New Outlook.application

Set oLookMail = oLookApp.CreateItem (0)
5

Tapez la commande suivante pour ajouter deux lignes de données : .

Range (" A1") Sélectionnez

ActiveCell.Value = "Test données 1 "

Range (" A2 " )
Sélectionnez < br . >

ActiveCell.Value = "Test Data 2»
6

Tapez la commande suivante pour sauvegarder les données dans une variable chaîne : .

Range (" A1") Sélectionnez < . br>

dataToSend = ActiveCell.Value

Range (" A2 " ) Sélectionnez

dataToSend = " Ligne 1 :" & dataToSend & " .... Row 2 :" & ActiveCell.Value
7

Tapez la commande suivante pour définir les informations e-mail et envoyez-le : .

oLookMail

To = " someemailaddress@domain.com " < br >

. Subject = "Email Excel "

. corps = dataToSend

. envoyer

End With

Modifier l'adresse e-mail et entrez un adresse email valide
8

type de ce qui suit pour mettre fin à la procédure et de saisir toutes les erreurs : .

Exit_sendEmail :

Exit Sub

Err_sendEmail : Photos

MsgBox Err.Description

CV Exit_sendEmail :

End Sub
9

Appuyez sur " F5 " pour exécuter la procédure et envoyer un email à partir de Excel.