100分求教！有关用EXCHANGE发送邮件
各位，请问一下，exchange是否提供了邮件发送接口给VB，VC等，我想在VB程序中实现内部邮箱和外部邮箱之间的互发，也就是象OA中的功能一样，每人一个内部邮箱，通过外部邮箱可以将邮件发送和接收。
另哪里有EXCHANGE 下载
问题点数：100、回复次数：5Top
1 楼hon（horn）回复于 2003-06-02 12:24:38 得分 80
cdo for exchange
参见E2k SDK CDO,ADO
http://www.microsoft.com/downloads/details.aspx?FamilyId=7FDB1F27-D646-4654-BA0B-1FFA966CCC10&displaylang=enTop
2 楼Snakesnoop（拥有她，是我一生的幸福）回复于 2003-06-02 13:40:31 得分 20
Exchange SDK & Resource kitTop
3 楼storm97（风暴不再）回复于 2003-06-02 14:06:38 得分 0
电子市场到处都是卖的，花五元钱买一张D版得了，下载什么啊！没几个那么胆儿大的把Exchange拿出来让人下。
Top
4 楼vc_boy（）回复于 2003-06-09 11:11:38 得分 0
哪位能给一个用VB开发的利用EXCHANGE发送邮件的例子？
要能从为每个客户分配的个人信箱发送和接收外部到的电子邮件。
最好还能简单的写一下如何配一个EXCHANGE来完成基本的邮件收发服务。
如能给出较详细的说明和例子，我愿出500分以示酬谢，
当然也可以用现金来酬谢。
还请各位帮个忙。
谢谢！Top
5 楼hon（horn）回复于 2003-06-09 14:55:59 得分 0
ref : cdo for e2k
Public Sub CreateandSendMail()
' This sends a very simple message
Dim msg As New CDO.Message
With msg
' Indicate who is sending the message
.From = "test@yourserver.com"
' Address the message
.To = "bbb@new.com"
.Subject = "First"
' Fill in the body text using plain text formatting
.TextBody = "Did you know there are estimated only " & _
"about 400 of these magnifcant creatures left in the wild?"
' Send the message
.Send
End With
Debug.Print "Message sent."
End Sub
Public Sub CreateSeparateTextandHTML()
' Use both an HTML and plain text
' version for body text formatting.
' If you are using VBScript, use this With:
' With CreateObject("CDO.Message")
With New CDO.Message
.From = "administrator@domain.com"
.To = "administrator@mnew.com"
.Subject = _
"This message has two different body text versions"
' Generate body text for plain text viewers
' Generate body text for HTML capable viewers
.HTMLBody = _
"<H1>Check this out!</H1>" & _
"<HR><i>Look</i>" & _
" at this " & _
"<font color=red size=12>cool</font>" & _
" HTML message."
.TextBody = _
"You're missing out by not supporting HTML!"
' Send the message
.Send
End With
Debug.Print "Message sent."
End Sub
Public Sub FillMessageBodywithWebPage()
' Creates a mail message with the Microsoft home page
' as the message body.
Dim cnfg As CDO.Configuration
' Set the Sender information
Set cnfg = New CDO.Configuration
With cnfg
.Fields(cdoSendEmailAddress) = "test@domain.com"
.Fields.Update
End With
' Create the new message
With New CDO.Message
Set .Configuration = cnfg
.To = "test@domain.com"
.Subject = "Exchange"
' Embed the Microsoft home page into the body
'.CreateMHTMLBody _
"http://msdn.microsoft.com/exchange/" _
, cdoSuppressBGSounds + cdoSuppressObjects
.TextBody = "This is example"
' .CreateMHTMLBody _
("http://yourservername/wssapp/resources/left.htm")
'.CreateMHTMLBody ("d:\ls\ff.htm")
.Send
End With
' Clean up
Set cnfg = Nothing
End Sub
Top
