Envoyer un message automatiquement
Résolu
cs_jlp65
Messages postés
1
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
7 avril 2006
-
7 avril 2006 à 10:26
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 7 avril 2006 à 10:47
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 7 avril 2006 à 10:47
A voir également:
- Envoyer un message automatiquement
- Message delphi - Conseils pratiques -Delphi
- Envoyer un mail en php - Forum PHP
- Lancer une macro automatiquement tous les jours - Forum VBA Office (Excel, Word ...)
- Message box - Conseils pratiques -Visual Basic / VB.NET
- Copier automatiquement une cellule excel dans une autre feuille (vba) ✓ - Forum Visual Basic 6
1 réponse
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
7 avril 2006 à 10:47
7 avril 2006 à 10:47
Salut,
Dans un Userform Outlook Place un commandButton essaie ce code
Dim MonMail As Outlook.MailItem
Private Sub CommandButton1_Click()
Set MonMail = Application.CreateItem(olMailItem)
With MonMail
.To = [mailto:Adresse@Gmail.com Adresse@Gmail.com]
.Subject = "Objet"
.Body = "Bonjour!"
.Send
End With
Set MonMail = Nothing
End Sub
@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
Dans un Userform Outlook Place un commandButton essaie ce code
Dim MonMail As Outlook.MailItem
Private Sub CommandButton1_Click()
Set MonMail = Application.CreateItem(olMailItem)
With MonMail
.To = [mailto:Adresse@Gmail.com Adresse@Gmail.com]
.Subject = "Objet"
.Body = "Bonjour!"
.Send
End With
Set MonMail = Nothing
End Sub
@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée