L'envoi de courriel à partir d'excel automatiquement en fonction de la date

J'ai une feuille excel avec daté informations de planification. Je voudrais vous envoyer des mises à jour quotidiennes sur combien d'appels et de la façon dont de nombreux rendez-vous ont été programmés chaque jour. La feuille de calcul se présente comme suit:

Date        Scheduled     Called    Notes
07/06/2015    0             5        None
07/07/2015    5            12        None
07/08/2015    2            10        None

Je suis en train d'écrire un programme qui, à dire sur 7/06/2015, un email sera généré avec que jours des cours, des appels, et des notes dans le corps, et envoyé automatiquement. Est-ce possible?

InformationsquelleAutor Reg Robinson | 2015-07-02
  1. 6

    Voici ce que je pense pourrait être un début solide. Vous aurez évidemment besoin pour résoudre ce que l'adresse de courriel, le message doit être envoyé, et comment mettre en forme le corps et autres joyeusetés.

    La gamme donnée de r a été basée sur les données de l'échantillon fourni par vous, qui a occupé A2-A4, mais de changer cela pour ce qui est correct.

    Option Explicit

Sub email()

    Dim r As Range
    Dim cell As Range

    Set r = Range("A2:A4")

    For Each cell In r

        If cell.Value = Date Then

            Dim Email_Subject, Email_Send_From, Email_Send_To, _
            Email_Cc, Email_Bcc, Email_Body As String
            Dim Mail_Object, Mail_Single As Variant

            Email_Subject = "subject"
            Email_Send_From = "[email protected]"
            Email_Send_To = "[email protected]"
            Email_Cc = "[email protected]"
            Email_Bcc = "[email protected]"
            Email_Body = "body"

            On Error GoTo debugs
            Set Mail_Object = CreateObject("Outlook.Application")
            Set Mail_Single = Mail_Object.CreateItem(0)
            With Mail_Single
            .Subject = Email_Subject
            .To = Email_Send_To
            .cc = Email_Cc
            .BCC = Email_Bcc
            .Body = Email_Body
            .send
            End With

        End If

    Next


    Exit Sub

debugs:
        If Err.Description <> "" Then MsgBox Err.Description
End Sub
    • Merci, c'est génial! Cependant, savez-vous comment je peux mettre des références à Prévue, Appelé, et des Notes de cellules dans le corps de l'email? Maintenant, il ne fait qu'envoyer un e-mail avec le texte que j'ai les sous pour le "corps".
    • Je n'ai pas le temps de modifier mon code pour l'instant (désolé!) mais je préfère utiliser un index pour suivre la ligne qui vous êtes et vous pouvez alors saisir les données appropriées des autres colonnes. Bonne chance!
    • Upvote! Une réponse utile doit être upvoted, pour l'amour des affiches !
    InformationsquelleAutor Dportology
  2. 0

    C'est un peu tard, mais peut être utile pour vous et les autres:

    1. Utiliser la réponse ci-dessus pour définir les notifications.

    2. Créer VB-script fichier avec ce code: (ouvrez le bloc-notes, collez code ci-dessous, en fonction de vos besoins, enregistrer sous: fichier vbscript)

      Path="complete_file_path_of_your_excel_file.xlsm"

Macro="email"

Set objApp = CreateObject("Excel.Application.16") 

objApp.Visible = True 

Set wbToRun = objApp.Workbooks.Open(Path) 

objApp.Run Macro

    3. Ensemble Planificateur de Tâches de Windows pour ouvrir le fichier VBscript vous avez créé sur une base quotidienne à un certain moment.

    4. Vous avez maintenant une set-and-forget notification bot.

    InformationsquelleAutor Ali Z