IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Envoyer automatiquement un email avec pièce jointe


Sujet :

VBScript

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Octobre 2010
    Messages
    22
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 22
    Par défaut Envoyer automatiquement un email avec pièce jointe
    Chers amis
    J'ai édité ce code pour envoyer automatiquement mon fichier aux destinateurs. Tout marche bien, mais j'ai tout le temps un message qui m'oblige à valider avant d'envoyer (voir message_outlook en attache).
    Quelqu'un peut me monter comment je peux envoyer sans valider ce message?

    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
    Dim appOutlook
    Dim NewMail
    Dim Previousday
    Dim Text
    Dim FileAttach
    Dim ToAddress
    Dim CcAddress
    Dim MailSubject
     
     
    Previousday = Day(Date-1) & "_" & Month(Date-1) & "_" & Year(Date-1)
    Text = "Find in attachment, Report Day_" & (Previousday)
    FileAttach = "D:\Report_Day_" & (Previousday) & ".xls"
    ToAddress = "me@address.com"
    CcAddress = "you@address.com"
    MailSubject = "Report_Day_" & (Previousday)
     
     
    'Generating and sending an e-mail:
     
    Set appOutlook = CreateObject("OUTLOOK.APPLICATION")
    Set NewMail = appOutlook.CreateItem(0)
    With NewMail
    '.Display
    .To = ToAddress
    .Cc = CcAddress
    .Subject = MailSubject 
    .Body = Text
    .Attachments.Add(FileAttach)
    .OriginatorDeliveryReportRequested = False
    .ReadReceiptRequested = False 
    .Send
    End With
     
    Set appOutlook = Nothing
    Set NewMail = Nothing
    Images attachées Images attachées

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Envoyer email avec pièce jointe
    Par hous2m dans le forum Android
    Réponses: 0
    Dernier message: 20/05/2015, 16h12
  2. Envoyer un email avec pièce jointe
    Par LaSirenne dans le forum Développement Web en Java
    Réponses: 7
    Dernier message: 01/11/2010, 20h58
  3. [D6-Outlook] Envoi d'email avec pièces jointes
    Par pepito62 dans le forum Web & réseau
    Réponses: 2
    Dernier message: 23/06/2010, 18h09
  4. [WD12] Envoi Email avec pièces jointes
    Par machou43 dans le forum WinDev
    Réponses: 2
    Dernier message: 07/05/2009, 14h10
  5. Envoi email avec pièce jointe
    Par ouinih dans le forum Modules
    Réponses: 2
    Dernier message: 29/01/2009, 22h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo