1. EXCEL中用VBA实现发邮件

双击按钮，写入以下代码，有问题Q这个群找我——84253041

'代码开始===========================================================

Dim RndNumber, TempArray(29), i As Integer

Dim rng, rng1 As Range

Set rng = Sheets（"学生名单"）.Range("A2:A31") '学生名单区域，30名同学

Set rng1 = Range("B4:F9") '座位区域，30个座位

For i = 0 To 29

TempArray(i) = i

Next

For i = 29 To 0 Step -1

RndNumber = Int(i * Rnd)

rng1(30 - i) = rng(TempArray(RndNumber) + 1)

TempArray(RndNumber) = TempArray(i)

Next

'代码结束===========================================================

2. 如何用VBA实现EXCEL发邮件功能

1.添加引用Microsoft Outlook 11.0 Object Library。（这里用的是Microsoft Outlook

2003）

2.定义发送邮件过程。

Public Sub SendEmail(Receiver As String, SubjectText As String, BodyText As

String, AttachedObject As String)

Dim OutlookApp As

Outlook.Application

Dim OutlookItem As

Outlook.MailItem

Set OutlookApp =

New Outlook.Application

Set OutlookItem =

OutlookApp.CreateItem(olMailItem)

On Error GoTo

SendEmail_Error

With

OutlookItem

.To = Receiver

'收件人地址

.Subject = SubjectText

'邮件主题

.Body = BodyText

'邮件内容

.Attachments.Add

AttachedObject '粘贴附件

.Send

'发送邮件

End With

SendEmail_Exit:

Exit

Sub

SendEmail_Error:

MsgBox

Err.Description

Resume SendEmail_Exit

End Sub

3. 在Word,Excel中如何直接发送邮件

Office中，必须安装了Outlook之后，才能把当前文档作为附件方式进行发送，而如果没有安装Outlook，那么就没有办法作为附件发送了，因此我们需要一个简单的方式来达到这个实用的功能！

启动Word，新建一个文件，叫做发送附件，保存为.dot文件，然后按Alt+F8，在ThisDocument中保存以下代码。安装方法：把 发送附件.dot 解压缩，存储到Word的Startup目录，解压缩 sendmail.xla 到某个目录，然后启动Excel，使用 工具-->；模版和加载项，浏览，加载这个模版即可。

4. 用VBA 调用outlook自动发邮件

MAPISession1.SignOn

'MAPI1.MsgType = 1 'how to send html code ?

'MAPI1. = mailsvr.Text

MAPI1.SessionID = MAPISession1.SessionID

MAPI1.MsgIndex = -1

MAPI1.RecipAddress = mailto.Text

'MAPI1.RecipDisplayName = mailto.Text

'MAPI1.MsgOrigAddress = mailfrom.Text '未啥只能读，对了，这是收到的信

'MAPI1.MsgOrigDisplayName = mailfrom.Text '发件人用OE默认，收信用fetch

MAPI1.MsgSubject = mailhead.Text

MAPI1.MsgNoteText = mailbody.Text

MAPI1.Send '0[缺省]不出现编辑框了，1出现编辑框！

MAPISession1.SignOff

转载请注明出处51数据库 » wordvba发送邮件