Bonjour à tous
une question qui me travaille depuis pas mal de temps : est il possible de créer une macro (qui serait copier dans différents classeur) qui enverrait le classeur par mail mais en utilisant thunderbird?
Je ne sais pas si je suis assez claire.
J'attends de vous lire
PS : en navigant sur le forum j'ai réussi à trouver ce code mais il ne fonctionne qu'avec outlook. Moi je voudrais qu'il utilise thunderbird:
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
une question qui me travaille depuis pas mal de temps : est il possible de créer une macro (qui serait copier dans différents classeur) qui enverrait le classeur par mail mais en utilisant thunderbird?
Je ne sais pas si je suis assez claire.
J'attends de vous lire
PS : en navigant sur le forum j'ai réussi à trouver ce code mais il ne fonctionne qu'avec outlook. Moi je voudrais qu'il utilise thunderbird:
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
Dernière édition: