通过Acad，word等与VBA发送电子邮件/信息。

Kheilmann · 发表于 2006-7-10 18:07:49

我正在研究根据不同的标准通过AutoCAD、Excel、Word和Access中的VBA向不同的人发送电子邮件。我不确定标准是否真的重要，但是...
这一切都很简单...
如果dwg不存在...电子邮件起草者
如果. xls不存在...电子邮件估计器
如果Access中的记录不存在...电子邮件零件。
等。
所以我的问题...我从哪里开始？我需要什么信息？我需要添加任何引用吗？
我需要Outlook中的哪些对象、属性等？
有没有更好的方法来发送一些消息而不是使用公司电子邮件系统？
由于公司电子邮件在Exch上。服务器，并且不在现场，有没有更安全/稳定的方法向网络上的个人发送消息？
提前感谢您的帮助......

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

MickD · 发表于 2006-7-10 18:23:48

电子邮件可能是稳定的最佳方式。您想从何入手？每个程序是否会有一个单独的VBA例程，并且名称是否匹配？如果名称匹配，则检查和发送电子邮件将相当简单，但在我看来，如果您有资源，独立应用程序可能是这种情况下最好的。无论您走哪条路，您都必须引用Microsoft Outlook对象库。

Arizona · 发表于 2006-7-10 18:40:17

以下是AutoCAD的一些操作方法。它与excel、access、word、whathaveya几乎完全相同。

copy

Sub test()
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
    .To = "EstimatorPerson@KheilmannsHizzouse.com"
    .Subject = "You're falling down on your end, dude!"
    .Body = "Hey Loserboy, The awesomeness that is AutoCAD noticed that you STILL " & _
        "haven't done the estimating based on the Drawing: " & _
        ThisDrawing.GetVariable("dwgname") & ".  Don't make me come down " & _
        "there and slap you around again." & vbCrLf & vbCrLf & _
        "By the way, say hi to your wife and my kids."
    .Display
    .Send
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub