Envoi classeur par mail...

[kwakos]

Bonjour à tous,

Me re-voici avec une nouvelle colle...
Voilà donc mon classeur Xls qui change de nom à chaque ouverture (il prend le nom de la date du jour).
Ce qu'il me faudrait c'est qu'a chaque fois que le soir je ferme mon classeur, un msgbox s'ouvre "voulez vous envoyer une sauvegarde mail?"
si oui

alors ca envoie un email à
sauvegarde@moi.com

objet : "feuille du jour"
fichier joint -> le classeur xls du jour

Est il possible de faire tout ca sans passer par outlook ?
(je ne l ai pas configuré, je préfère la méthode old school) 😉

J'ai déjà regardé des posts sur le même principe mais pour des fichiers externes, je ne trouve pas la manip pour envoyer le fichier excel ouvert...

Merci à tous et a bientot !!!

 

[tototiti2008]

Re : Envoi classeur par mail...

Bonjour kwakos,

si tu ne l'envoie pas par outlook, tu veux l'envoyer par quoi ?
qu'appelles-tu le méthode "old school" ? mailto: ?

 

[kwakos]

Re : Envoi classeur par mail...

Bonjour kwakos,

si tu ne l'envoie pas par outlook, tu veux l'envoyer par quoi ?
qu'appelles-tu le méthode "old school" ? mailto: ?

Re

le forum, tototiti,

ce que j'appelle le "old school" c'est que je ne suis pas fan de outlook et donc pour checker mes mails je me connecte direct sur le site concerné genre gmail. 😛

Sinon, après avoir re-rechercher sur les anciens posts, j'en ai trouvé un qui se rapproche de mes besoins...
pour ceux que ca interesse ou qui auraient les memes besoins
https://www.excel-downloads.com/threads/envoi-automatise-de-fichiers-sous-outlook-2003.102513/
un classeur joint en 3eme message "USF send mail" contient bcp d'informations !!!

Merci à tous encore une fois... j'essaie de mon coté et je vous dit

kwakos

 

[kwakos]

Re : Envoi classeur par mail...

Bon bah j'ai essayé la méthode sans outlook (CDO microsoft), mais ca ne marche pas
Bug au niveau du .send...
Voici le code utilisé :


Sub CDO_Mail_Small_Text_2()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "monmail@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "moncode"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With iMsg
Set .Configuration = iConf
.To = "backup@monmail.net"
.CC = ""
.BCC = ""
' Note: The reply address is not working if you use this Gmail example
' It will use your Gmail address automatic. But you can add this line
' to change the reply address .ReplyTo = "Reply@something.nl"
.From = """YourName"" <Reply@something.nl>"
.Subject = "Important message"
.TextBody = strbody
.Send
End With

End Sub

 

[kwakos]

Re : Envoi classeur par mail...

Re le forum, tt le monde...

Pas d'idée ? oops 😕

🙄

A+

 

[kwakos]

Re : Envoi classeur par mail...

Re re re le forum et tout le monde !!! 😛

Alors voilà... Je désespère... Je ne dors plus... je ne mange plus... J'ai les paupières qui ont triplées de volume... J'en peux plus... 😉

Et oui, j'ai beau essayé des tas et des tas de trucs... ca marche toujours pas...

Envoyer mon mail avec la méthode CDO, je lance la macro... et Hop !!!
Bug... sur le .send
Toujours le même... arffff, j'y étais presque...

Quelqu'un a une idée ? 😀

Marci

A+

kwakos

 

[kwakos]

Re : Envoi classeur par mail...

oops...😕

Re bonjour à tous...

A priori personne ne voit d'où ca peut venir... 😱

Tant pis, je vais voir à faire autrement

Merci a tous !!!

A+

kwakos

 

[tototiti2008]

Re : Envoi classeur par mail...

Bonjour kwakos,

je n'en sais rien, peut-être que CDO nécessite un serveur Exchange, je n'ai jamais essayé auparavant. chez moi ça ne marche pas non plus et je n'ai pas de serveur Exchange.