MACRO qui declenche un mail

Bonsoir Olivier, Bonsoir le forum,


Voici un peu de code :





C'est la base pour envoyer un mail depuis Excel en pilotant Outlook. Après tu peux faire ce que tu veux que l'on fait habituellement avec Outlook, comme définir une priorité pour le message, ou bien demander une confo de lecture du message par le destinataire, gérer les flags, paramètrer des boutons pour la réponse, ....

Tu travailles avec l'objet message as Outlook.MailItem comme tu travaillerai avec l'objet workbook ou worksheet ou range etc..


J'espère que ca t'aidera.

Au fait, j'ai appliqué pour la première sous excel 97 à mon travail sans aucun problème. Mais chez moi à chaque envoi Outlook demande une autorisation, bref il faut cliquer sur OK. Imagine si tu veux envoyer 500 mails !!!!!


Si qqn à la solution... J'en ai pas spécialement besoin, mais c'est bien de savoir et j'suis certain que c'est tout bete ! Comme d'hab avec excel
🙂


Bonne soirée.

Je renvoi sans mettre au format 'CODE' :



--------------------------




Option Explicit

Private Sub CommandButton1_Click()

' déclaration des variables
Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myRecipient As Object
Dim email As String

'Crée une session Microsoft Outlook
Set appOutlook = CreateObject('outlook.application')

'Crée un nouveau message
Set message = appOutlook.CreateItem(olMailItem)

' initialisation de variables
email = 'abcd@efgh.com'

'Titre, texte, destinataires, etc ... et envoi.
With message
.Subject = 'Sujet du message'
.Body = 'Bonjour,' & vbCr & vbCr & _
'Bla Bla Bla ....... ' & vbCr & vbCr & _
'Cordialement,' & vbCr & vbCr & _
'Signature.'
.Recipients.Add (email)
.Send
End With

End Sub

c'est vraiment sympa de m'avoir répondu mais cela ne marche pas, il y a un probleme des la premier ligne :

' déclaration des variables
Dim appOutlook As Outlook.Application

appremment cette fonction est non definie
le message : ' type definie par l'utilisateur est non defini'

Message édité par: kolivier, à: 29/05/2006 00:04

Message édité par: kolivier, à: 29/05/2006 00:05

bonsoir

tu dois préalablement activer la reference Outlook

Dans l'editeur de macros
Menu Outils
References
Coche la ligne 'Microsoft Outlook xx.x object library'
Clique sur OK pour valider

xx.x dépend de ta version d'Office



bonne soirée
MichelXld

Bonsoir Olivier, bonsoir Michel, et bonsoir le forum,

Olivier,

Alors ca a marché ?


Michel,

Merci pour la précision.