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.
