Envoyer un message d'alerte vers messagerie autre que Outlook

**Arnaud_91** · 09/03/2011, 18h09

Bonjour,

j'aimerai savoir s'il est possible d'envoyer un message d'alerte depuis Excel vers une messagerie électronique quelle qu'elle soit ?

Car j'aimerai réaliser un projet de ce style, en envoyant l'alerte sur une boite mail d'entreprise et donc pas sur Outlook.

Merci d'avance.

**kiki29** · 09/03/2011, 21h12

Salut,voir sur http://excel.developpez.com/faq/?page=Messagerie peut-être via CDO

**patricktoulon** · 09/03/2011, 21h25

bonjour

essaie ca en modifiant le serveur de ton fournisseur d'acces internet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub EnvoiMail_CDO()
Dim iMsg As Object, iConf As Object, Flds As Object
 
Set iMsg = CreateObject("cdo.message")
Set iConf = CreateObject("cdo.configuration")
 
Set Flds = iConf.Fields
With Flds
 .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2       
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aliceadsl.fr" ' ici tu met le serveur corespondant a ton fournisseur d'acces 
'la liste tu peut la trouver dans la faq c'est ici!!!='http://outlook.developpez.com/faq/index.php?page=Configuration#Paras_FAI
 
    .Update
End With
 
With iMsg
    Set .Configuration = iConf
    .To = "toto@msn.com" 'ici l'adresse du destinataire
    .From = "titi@msn.com" 'ici ton adresseemail
    .Subject = "titre du message" 'ici le tire
  '""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  'mise en forme du paragraphe au format "HTML"
   paragraphe = ""
paragraphe = paragraphe & "<HEAD>" & Chr(13)
paragraphe = paragraphe & "<BODY>" & Chr(13)
'************************************
paragraphe = paragraphe & "<BR> Bonjour mr titi <BR>" & vbCrLf
paragraphe = paragraphe & "<BR>  attention ceci est une alerte <BR> " & vbCrLf
paragraphe = paragraphe & "<BR>faite attention<BR> " & vbCrLf
paragraphe = paragraphe & "<BR>la maison des trois petit cochon<BR> "
paragraphe = paragraphe & "<BR>va s'ecrouler<BR>" & vbCrLf
paragraphe = paragraphe & "<BR>vous devrier prendre vos jambes a votre coup!!<BR> " & vbCrLf
 
'***************************************
 paragraphe = paragraphe & " Vous souhaitant bonne chance"
paragraphe = paragraphe & "<BR>Cordialement<BR>" & "Mr toto la fritte" & "<BR>" & vbCrLf
paragraphe = paragraphe & "<A href=mailto:l'email de mon entreprise@hotmail.fr>pour toute question Veuillez Cliquez ici pour me contacter</A>"
 
    paragraphe = paragraphe & "</BODY>"
paragraphe = paragraphe & ""
 
    .HTMLBody = paragraphe
  'ici on va determiner le fichier a envoyer en piece jointe  
.AddAttachment ThisWorkbook.Path & "\TEMP\" & form_mail.PIECE_JOINTE'
    .Send
End With
MsgBox "LE DOCUMENT A ETE TRANSMIS "
 
End Sub

ca peut durrer une 15aines de secondes

au plaisir

**Arnaud_91** · 10/03/2011, 18h51

Merci, mais je suis en entreprise, je ne peux donc pas me permettre de modifier le serveur du fournisseur d'accès, surotut que je suis stagiaire !

**patricktoulon** · 10/03/2011, 20h54

ou lala!! tu ne m'a pas compris

en aucun cas je parlais du serveur de l'entreprise

je parlais simplement du serveur du fournisseur d'acces

si c'est alice c'est smtp.aliceadsl.fr

si c'est orange c'est smtp.orange.fr

ect...ect...

ou plus simple dis moi ce que tu a comme fournisseur d'acces je te la réécris

allez au plaisir

**Arnaud_91** · 11/03/2011, 15h34

C'est Free apparemment. Mais où est-ce que je vais changer ça ?

Et où est-ce que je vais mettre le codage que tu m'as déjà fait plus haut ?

Je suis désolé j'y connais vraiment rien

!

Et ce codage permet-il bien un envoi automatique d'un mail ? (sans ouvrir Excel si possible).

**patricktoulon** · 11/03/2011, 16h00

bonjour
deja je comprend pas la

tu est sur le forum excel vba
alors pour la question "sans ouvrir excel" tu peut oublier

et le code tu le place dans un module standard

au plaisir

Envoyer un message d'alerte vers messagerie autre que Outlook

Macros et VBA Excel

Discussions similaires

Partager

Partager