vb.netmapi的简单介绍

我需要一个自动邮件的程序，需要源代码，我用的是vb.net 2003 .我里面好像没有MAPI会话控件，1187647455@q

给你一个VB链接Access的简单代码：

Dim DATA As Database

Dim Recordset As Recordset

Set DATA = Workspaces(0).OpenDatabase("C:\Data.mdb")

Set Recordset = DATA.OpenRecordset("number")

Recordset.MoveFirst

Do While Recordset.EOF = False

Data_temp(i) = Recordset.Fields(0).Value

Loop

相关问答

Q1: vb. net是面向对象的编程语言是对吗?

VB.net

相对VB出现巨大变化的是语意,从运行于基于COM的deterministic,

reference-counted的引擎之上的编程环境，转变为全面面向对象的基于.NET

Framework的语言。.NET

Framework包括了CLR(使用通用垃圾收集机制和JIT编译引擎的虚拟机)和大量的类库。VB开发者进入VB.NET要面对新增的大量类库的问题。

上述变化表明了许多在运行及维护相关优化事宜下面的假定，一些VB6函数和库不再存在而其它的仍然可用，但是比不上.NET语言中自带的可替换的函数和库来得高效。即使它们可被编译，但大多从VB6转换而来的应用将需要一定程度上的重构(refactoring)，以全面利用新语言的优点。在有关句法、应用调试、部署和术语等方面的变化，有大量的文档可以参考。

Q2: 怎么在VB中加入MAPI

1、新建一个VB项目。

2、将缺省窗体Form1的Caption属性设置为"发送邮件"。

3、将MAPI控件加入VB工具框。

4、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。

5、在Form1中加入三个文本框控件，将它们的Name属性分别设置为txtSendTo、txtSubject、txtMessage，并将txtMessage的Multiline属性设置为True。这三个文本框控件将分别用于填写邮件的收件人、主题和内容。

6、在Form1中加入三个标签控件，将它们的Caption属性分别设置为"收件人"、"主题"和"内容"，并将它们放在合适的位置用以标注相应的文本框控件。

7、在Form1中加入一个命令按钮控件，将其Caption属性和Name属性分别设置为"发送"和"cmdSend"。

8、将下列代码加入Form1的Form_Load事件：

Private Sub Form_Load()

MAPISession1.SignOn

End Sub

9、将下列代码加入Form1的Form_Unload事件：

Private Sub Form_Unload(Cancel As Integer)

MAPISession1.SignOff

End Sub

10、将下列代码加入cmdSend的Click事件：

Private Sub cmdSend_Click()

With MAPIMessages1

.MsgIndex = -1

.RecipDisplayName = txtSendTo.Text

.MsgSubject = txtSubject.Text

.MsgNoteText = txtMessage.Text

.SessionID = MAPISession1.SessionID

.Send

End Sub

Q3: VB如何用MAPI控件发送带附件的邮件？

这个最好用VB8或者是VB9里内置的NET.MAIL类来实现发送邮件比较容易，附件也支持同时发送多个附件。

Q4: vb.net桌面中bitmap类如何直接绘制到屏幕?

可以直接显示的。你看下面的示例，使用vb.net画的齿轮：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

b = New Bitmap(PictureBox1.Width, PictureBox1.Height)

g = Graphics.FromImage(b)

'g.RotateTransform(90)

g.Clear(Color.White)

g.TranslateTransform(PictureBox1.Width / 2, PictureBox1.Height / 2)

g.ScaleTransform(1, -1)

'g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality

DrawCL(g, New PointF(Val(TextBox1.Text), Val(TextBox2.Text)), Val(TextBox3.Text), Val(TextBox4.Text), Val(TextBox5.Text), Val(TextBox6.Text), Val(TextBox7.Text), Val(TextBox8.Text), Val(TextBox9.Text))

DrawCL(g, New PointF(Val(TextBox18.Text), Val(TextBox17.Text)), Val(TextBox16.Text), Val(TextBox15.Text), Val(TextBox14.Text), Val(TextBox13.Text), Val(TextBox12.Text), Val(TextBox11.Text), Val(TextBox10.Text))

PictureBox1.Image = b

End Sub