• 该MAPISend应用程序的设计是一个小的命令行程序发送信息(和附件)通过的任何书兼兼容的电子邮件系统(如飞马邮件)。 你可以用它在批文件或宏/模块中的其他程序的自动化电子邮件发送的文件。

    如果你跑MAPISend没有任何参数，它将显示一个简单的帮助屏幕。

    一个用于MAPISend是以电子邮件的MS Word文档容易地(其中你通常不能这样做，除非你使用MS Outlook。)

    要做到这一点，只要把把这个宏在你正常的。点模板文件并创建一个菜单项或工具栏按钮援引的宏：

    公子send_document()

    昏暗的lngResult作为长

    如果文件。数>=1然后

    如果ActiveDocument的。保存=False然后

    ActiveDocument的。保存

    如果结束

    lngResult=壳("Mapisend/E/F"及ActiveDocument的。名)

    别

    MsgBox"没有文件是开放的"

    如果结束

    结束子

  • के MAPISend आवेदन डिजाइन किया गया था होना करने के लिए एक छोटे से कमांड लाइन उपयोगिता संदेश भेजने के लिए और (संलग्नक) के माध्यम से किसी भी MAPI अनुरूप ईमेल प्रणाली (इस तरह के रूप में कवि की उमंग मेल). आप इसे उपयोग कर सकते हैं में बैच फ़ाइलों या मैक्रो/मॉड्यूल में अन्य कार्यक्रमों को स्वचालित करने के लिए ईमेल दस्तावेजों.

    यदि आप चलाने के लिए MAPISend के बिना किसी भी पैरामीटर, यह प्रदर्शित करेगा एक सरल मदद स्क्रीन है ।

    के लिए एक का उपयोग MAPISend है ईमेल करने के लिए एमएस वर्ड दस्तावेजों को आसानी से (जो आप सामान्य रूप से ऐसा नहीं कर सकते जब तक कि आप का उपयोग एमएस आउटलुक.)

    ऐसा करने के लिए, बस डाल डाल इस मैक्रो में अपने सामान्य.dot टेम्पलेट फ़ाइल बनाने के लिए और एक मेनू आइटम या उपकरण पट्टी बटन का आह्वान करने के लिए मैक्रो:

    पब्लिक उप send_document()

    मंद lngResult के रूप में लंबे समय

    यदि दस्तावेज़.गिनती >= 1 है तो

    अगर ActiveDocument.बचाया = झूठी तो

    ActiveDocument.बचाने के लिए

    अंत में अगर

    lngResult = शैल("Mapisend /ई /एफ" और ActiveDocument.नाम)

    और

    MsgBox "कोई दस्तावेज खुले हैं"

    अंत में अगर

    अंत उप

  • The MAPISend application was designed to be a small command line utility to send messages (and attachments) via any MAPI compliant email system (such as Pegasus Mail). You can use it in batch files or macros/modules in other programs to automate emailing documents.

    If you run MAPISend without any parameters, it will display a simple help screen.

    One use for MAPISend is to email MS Word documents easily (which you normally can't do unless you use MS Outlook.)

    To do this, just put put this Macro in your Normal.dot template file and create a menu item or toolbar button to invoke the macro:

    Public Sub send_document()

    Dim lngResult As Long

    If Documents.Count >= 1 Then

    If ActiveDocument.Saved = False Then

    ActiveDocument.Save

    End If

    lngResult = Shell("Mapisend /E /F " & ActiveDocument.Name)

    Else

    MsgBox "No documents are open"

    End If

    End Sub