通过Acad，word等与VBA发送电子邮件/信息。
我正在研究根据不同的标准通过AutoCAD、Excel、Word和Access中的VBA向不同的人发送电子邮件。我不确定标准是否真的重要，但是...这一切都很简单...
如果dwg不存在...电子邮件起草者
如果. xls不存在...电子邮件估计器
如果Access中的记录不存在...电子邮件零件。
等。
所以我的问题...我从哪里开始？我需要什么信息？我需要添加任何引用吗？
我需要Outlook中的哪些对象、属性等？
有没有更好的方法来发送一些消息而不是使用公司电子邮件系统？
由于公司电子邮件在Exch上。服务器，并且不在现场，有没有更安全/稳定的方法向网络上的个人发送消息？
提前感谢您的帮助......
**** Hidden Message ***** 电子邮件可能是稳定的最佳方式。您想从何入手？每个程序是否会有一个单独的VBA例程，并且名称是否匹配？如果名称匹配，则检查和发送电子邮件将相当简单，但在我看来，如果您有资源，独立应用程序可能是这种情况下最好的。无论您走哪条路，您都必须引用Microsoft Outlook对象库。 以下是AutoCAD的一些操作方法。它与excel、access、word、whathaveya几乎完全相同。
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
鲍勃，你得写一本编程书！您的示例代码清楚地说明了它的意图并传达了信息。
谢谢，能得到正面反馈真好。即使在我的产品代码中，如果没有其他人，我也会尝试做一些让我开心的事情。它偶尔会出现在我的msgboxes中，但是在为别人写代码时，我倾向于远离刹车。人生苦短，不必认真对待。 太棒了，鲍勃！这就是你所谓的“学会笑”吗 好一个鲍勃，我讨厌承认，但最后一行让我哈哈大笑。 结束Sub？我同意这是一个经典，但老实说，我完全过度使用它。 哦！你应该辞职。。 这就是我一生的故事，波德克。
页:
[1]
2