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

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

本人&#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中可以看到几乎完全相同的内容

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