vb怎么进行outlook设置

用Outlook.Application

Dim outlook As Outlook.Application

Set outlook = CreateObject("Outlook.Application")

具体的实例百度上有很多！就不打出来了！去搜VB *** 作 outlook就可以了！

>>有的程序不用路径吧,像shell "explorer"就不用了

是的，有和程序不需要，那是因为windows环境变量里设置了程序的路径为默认路径，

运行"cmd",输入"path"，你可以看到windows环境变量的路径设置。

－－－－－－－－－－－－－－－－－－

Private Sub Command1_Click()

f = Environ("ProgramFiles") &"\Outlook Express\msimn.exe"

If Dir(f) = "" Then

MsgBox ("not found Outlook.")

Else

Shell f, vbNormalFocus

End If

End Sub

建立自动化范例

开启 Visual Basic 然後建立新的「标准执行档」专案。

从 [专案] 功能表中，选择 [参考] 再选取 [Microsoft Outlook]。

将按钮新增到表格中。

按两下按钮，然後新增下列程式码：

' Start Outlook.

' If it is already running, you'll use the same instance...

Dim olApp As Outlook.Application

Set olApp = CreateObject("Outlook.Application")

' Logon. Doesn't hurt if you are already running and logged on...

Dim olNs As Outlook.NameSpace

Set olNs = olApp.GetNamespace("MAPI")

olNs.Logon

' Create and Open a new contact.

Dim olItem As Outlook.ContactItem

Set olItem = olApp.CreateItem(olContactItem)

' Setup Contact information...

With olItem

.FullName = "James Smith"

.Birthday = "9/15/1975"

.CompanyName = "Microsoft"

.HomeTelephoneNumber = "704-555-8888"

.Email1Address = "someone@microsoft.com"

.JobTitle = "Developer"

.HomeAddress = "111 Main St." &vbCr &"Charlotte, NC 28226"

End With

' Save Contact...

olItem.Save

' Create a new appointment.

Dim olAppt As Outlook.AppointmentItem

Set olAppt = olApp.CreateItem(olAppointmentItem)

' Set start time for 2-minutes from now...

olAppt.Start = Now() + (2# / 24# / 60#)

' Setup other appointment information...

With olAppt

.Duration = 60

.Subject = "Meeting to discuss plans..."

.Body = "Meeting with " &olItem.FullName &" to discuss plans."

.Location = "Home Office"

.ReminderMinutesBeforeStart = 1

.ReminderSet = True

End With

' Save Appointment...

olAppt.Save

' Send a message to your new contact.

Dim olMail As Outlook.MailItem

Set olMail = olApp.CreateItem(olMailItem)

' Fill out &send message...

olMail.To = olItem.Email1Address

olMail.Subject = "About our meeting..."

olMail.Body = _

"Dear " &olItem.FirstName &", " &vbCr &vbCr &vbTab &_

"I'll see you in 2 minutes for our meeting!" &vbCr &vbCr &_

"Btw: I've added you to my contact list."

olMail.Send

' Clean up...

MsgBox "All done...", vbMsgBoxSetForeground

olNS.Logoff

Set olNs = Nothing

Set olMail = Nothing

Set olAppt = Nothing

Set olItem = Nothing

Set olApp = Nothing

---