MS Project宏，用于发送包含固定收件人，主题和正文的当前.mpp文件

问题描述

我正在寻找一个宏来将.mpp存储在的宏发送给固定的收件人，主题和正文

如果我录制一个宏，我必须一遍又一遍地包含收件人，主题和正文，因此它不起作用

我写了一些代码，但是我无法附加当前的.mpp 有人可以帮忙吗？

Sub CreateMail()

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
        .To = "[e-mail]"
        '.CC = "[e-mail]"
        .Subject = "Hi there"
        .Body = "Test"
        
OutMail.display

End With

End Sub`

解决方法

如果当前项目已保存，则

// Declares a dictionary's functionality

#ifndef DICTIONARY_H
#define DICTIONARY_H

#include <stdbool.h>

// Maximum length for a word
// (e.g.,pneumonoultramicroscopicsilicovolcanoconiosis)
#define LENGTH 45

// Prototypes
bool check(const char *word);
unsigned int hash(const char *word);
bool load(const char *dictionary);
unsigned int size(void);
bool unload(void);

#endif // DICTIONARY_H