Démarrage automatique envoi de mail

Bonjour,

j'ai besoin d'aide s'il vous plait

Je veux faire une tache planifiée qui ouvre un fichier excel tous les 5h du matin.

Au démarrage ce fichier fait plein de calculs et si la cellule A1 vaut 0 c'est cool. Par contre si ça vaut 1 et bien la il faut que j'envoi 1 mail à mon directeur pour creer un genre d alerte.

bon je n'arrive pas a envoyer ce mail avec Excel 2003 ou 2007.

Salut,

Je ne sais pas si ton pb c'est d'envoyer un mail ou alors de lancer l'envoi des mails en automatiques lors du lancement d'excel.

Si c'est l'envoi des mails, cf fichier attaché avec code simple pour envoyer des mails a plusieurs destinataires et 2 fichiers attachés possibles.

Test et dis moi si cela fonctionne chez toi.

Si c'est pour l'automatisation complete alors dis le je verrais ce que je peux faire.

Damien

Merci mais,

c'est une tache planifié que je dois faire genre à 5h00 du matin ça lance le fichier excel

le fichier excel fait un calcul

ca place en A1 la résultat du calcul

Et surtout ça envoit cette valeur par mail

Par contre j'ai un popup qui me force à cliquer sur Oui je veux envoyer le mail mais il faut que ce soit automatique. en gros je ne veux pas de confirmation.

Et bien, il faut pour cela :

- Modifier la sécurité des macros (pour empecher la fenêtre info au demarrage)

Menu Outils -> Macro -> Sécurité > Niveau de Sécurité Faible (Dangereux quand même....)

-Ensuite il faut dans le code VBA :

Dans this Workbook

Private Sub Workbook_Open()
If Worksheets("Feuil1").Range("A1").Value = 1 Then
    envoimail
    'ActiveWorkbook.Close SaveChanges:=True
Else
    'on fait rien
     'ActiveWorkbook.Close SaveChanges:=True
End If
End Sub

A l'ouverture du classeur on va regarder la valeur dans A1 et si A1=1 alors on envoi un mail

Dans envoi mail j'envoi la valeur récupéré dans A1

Sub envoimail()
Dim strPath$, OutlookItem, ColAttach
Const olByValue = 1
Set OutlookItem = Outlook.Application.CreateItem(0)
OutlookItem.To = "Alloa@alloa.fr"
OutlookItem.Subject = "Sujet Du mail"
OutlookItem.Body = "Erreur recu =" & Worksheets("Feuil1").Range("A1").Value 'ici on envoit la valeur de A1
OutlookItem.Display
SendKeys "%{v}", True 'On utilise le hotkey pour envoyer le mail
End Sub

Mais, il faut que Outlook soit lancé...... Ou il faut l'ouvrir avant.

Dis moi si cela correspond a ton besoin ?

Damien

Génail Damien merci mais je ne peux pas le faire avec Outlook mais par serveur SMTP

j'ai ce bout de code mais ça ne marche pas

Dim objEmail
    'MAIL
    Const MAIL_SMTPSERVER = "smtp.Test.com"
    Const MAIL_FROM = "frzef@gf.fr"
    Const MAIL_TO = "admin_conduite"
    Const MAIL_SUBJECT = "Kill"

    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = MAIL_FROM
    objEmail.To = MAIL_TO
    objEmail.Subject = MAIL_SUBJECT
    objEmail.Textbody = "YEAH"
    objEmail.Configuration.Fields.Item _
          ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
         ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MAIL_SMTPSERVER
    objEmail.Configuration.Fields.Item _
         ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.send                            'CA PLANTE ICI
  Set objEmail = Nothing

Re,

Quel est le message d'erreur ?

Damien

Bon ça marche sur un autre serveur sous excel 2007 !

Merci à toi Damien t'excel