MACRO qui declenche un mail

[kolivier]

Bonsoir le forum, j'ai lu quelques sujets notamment un qui s'est terminé aujourd'hui sur un theme proche mais je n'arrive pas a faire fonctionner la piece jointe pour comprendre la methode.

Voici mon probleme :

J'ai une macro et je voudrais en cliquant sur un bouton envoyer un mail qui recupérer les données saisies sur ma macro.

Ne vous embetez pas a m'expliquer comment recupéerer les données, ça je sais le faire, ce que je ne sais pas c'est qu'elle est la fonction qui declenche l'ouverture d'une boite de dialogue mail (genre outlook par exemple).

MERCI MILLES FOIS POUR VOTRE PATIENCE ET VOTRE GRANDE GENTILLESSE.

 

[Davidc57]

Bonsoir Olivier, Bonsoir le forum,


Voici un peu de code :

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 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.

 

[Davidc57]

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

 

[kolivier]

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

 

[MichelXld]

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

 

[Davidc57]

Bonsoir Olivier, bonsoir Michel, et bonsoir le forum,

Olivier,

Alors ca a marché ?


Michel,

Merci pour la précision.