通过Acad、word等发送带有VBA的电子邮件/消息。乐筑天下

MickD 发表于 2006-7-10 18:07:49

通过Acad、word等发送带有VBA的电子邮件/消息。

本人&#039；我希望根据不同的标准，通过AutoCAD、Excel、Word和Access中的VBA向不同的人发送电子邮件&nbsp；本人&#039；我不确定标准是否真的很重要，但是如果dwg不存在，那么一切都会很简单。如果.xls不存在，请发送电子邮件给起草人。如果Access中的记录不存在，则发送电子邮件给estimater。发邮件给部分人。等等
那么我的问题是……我从哪里开始&nbsp；我需要什么信息&nbsp；我需要添加任何参考资料吗
我需要Outlook中的哪些对象、属性等&nbsp
有没有更好的方式来发送信息而不是使用公司的电子邮件系统&nbsp
因为公司电子邮件在Exch上。服务器，即非现场，是否有更安全/稳定的方法向网络上的个人发送消息
提前感谢您的帮助。。。。

Draftek 发表于 2006-7-10 18:23:48

电子邮件可能是保持稳定的最佳方式&nbsp；你想从何而来&nbsp；每个程序是否有单独的VBA例程，名称是否匹配&nbsp；如果名称匹配，那么检查和发送电子邮件就相当简单了，但在我看来，如果你有足够的资源，在这种情况下，一个独立的应用程序可能是最好的&nbsp；无论您选择哪种方式，都必须引用Microsoft Outlook对象库。

Draftek 发表于 2006-7-10 18:40:17

这里是#039；下面是一些如何从Autocad中执行此操作的方法&nbsp；从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

Maverick® 发表于 2006-7-10 19:55:56

鲍勃，你得写一本编程书！您的示例代码清楚地说明了其意图并传达了信息

Maverick® 发表于 2006-7-10 19:59:43

谢谢，它&#039；很高兴得到积极的反馈&nbsp；即使在我的产品代码中，如果没有其他人，我也会尝试做一些让我觉得有趣的事情&nbsp；它偶尔会进入我的MSGBox，但我在为其他人编写代码时倾向于远离刹车&nbsp；寿命#039；总之，要认真对待它。

Draftek 发表于 2006-7-11 06:13:14

太棒了，鲍勃！这就是你所说的吗；“学会笑”；

Draftek 发表于 2006-7-11 07:54:48

很好，鲍勃，我不想承认，但最后一行让我哈哈大笑。。

Draftek 发表于 2006-7-11 08:27:02

结束Sub&nbsp；我同意&#039；这是一个经典，但老实说，我完全过度使用它。

Draftek 发表于 2006-7-11 09:46:45

哦！你应该辞职的。。

Draftek 发表于 2006-7-11 11:25:33

鲍勃，那&#039；s金色

页: [1] 2

乐筑天下's Archiver

通过Acad、word等发送带有VBA的电子邮件/消息。