Envoi email automatisé

[mcj1997]

Bonjour,

J'ai récupéré sur ce site une macro (ci-dessous) permettant d'envoyer directement une feuille ou un classeur entier, j'ai affecté cette macro à un bouton et c'est ok.

Toutefois, je souhaiterai rentrer une adresse email dans mon programme afin que lorsque je clique sur le bouton actuel, l'adresse soit déjà renseignée.

Merci d'avance,



Sub SortirUserForm()
Dim Msg As Byte
Msg = MsgBox("Etes-vous sûr de vouloir envoyer le classeur entier ? " & _
vbCrLf & " à : " & MailAdresse, vbYesNo + vbQuestion, "Thierry's Démo")
If Msg = 6 Then
Sheets(1).Range("A1") = MailAdresse
Sheets(1).Range("A2") = MailSubject
MailAdresse = ""
MailSubject = ""
Application.OnTime Now + TimeValue("00:00:01"), "SendWorkBook"
Else: MsgBox "Pas Glop Glop...", vbInformation, "Thierry's Démo LOL !"
End If
End Sub

'le ActiveWorkbook.SendMail (ou ThisWorkbook) depuis un UserForm plante la merde
'avec une error de path...C'est pour çà tout ce sbinz...

Sub SendWorkBook()
Dim Maille As String
Dim Sujet As String
Maille = Sheets(1).Range("A1")
Sujet = Sheets(1).Range("A2")

ThisWorkbook.SendMail Maille, Sujet
MsgBox "Votre classeur a bien été envoyé"
End Sub

 

[kjin]

Re : Envoi email automatisé

Bonsoir,
J'ai pas vraiment vu le formulaire (?!) mais bon
Dans le module de la feuille ou du formulaire (Testé avec thunderbird)

Private Sub CommandButton1_Click()
Dim Msg As Byte
Msg = MsgBox("Etes-vous sûr de vouloir envoyer le classeur entier ? " & _
vbCrLf & " à : " & Sheets(1).Range("A1"), vbYesNo + vbQuestion, "Thierry's Démo")
If Msg = 6 Then
Application.OnTime Now + TimeValue("00:00:01"), "SendWorkBook"
Else: MsgBox "Pas Glop Glop...", vbInformation, "Thierry's Démo LOL !"
End If
End Sub

+Dans un module standard

Sub SendWorkBook()
Dim Maille As String
Dim Sujet As String
Maille = Sheets(1).Range("A1")
Sujet = Sheets(1).Range("A2")
ThisWorkbook.SendMail Maille, Sujet
MsgBox "Votre classeur a bien été envoyé"
End Sub

A+
kjin