请问如何用VB编写能够发附件的EMAIL？(不用WINSOCK)

Question

我想直接把OUTLOOK调用起来
然后把附件加载到OUTLOOK上
请问那位大哥能帮帮我啊？
谢谢

Answer 1

你用"shell"函数就可以了。
或用api函数 "ShellExecute"

Answer 2

可shell出来后他不能把附件挂上啊

Answer 3

可以啊，
我用的是outlook express 6 做的测试。

Answer 4

ShellExecute VB声明 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 说明 
  查找与指定文件关联在一起的程序的文件名 返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 参数表 
参数 类型及说明 
hwnd Long，指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框 
lpOperation String，指定字串“open”来打开lpFlie文档，或指定“Print”来打印它 
lpFile String，想用关联程序打印或打开一个程序名或文件名 
lpParameters String，如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数 
lpDirectory String，想使用的完整路径 
nShowCmd Long，定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数 Private Sub Command1_Click()
    ShellExecute Me.hwnd, vbNullString, "mailto:[email protected]", vbNullString, "C:\", SW_SHOWNORMALEnd Sub

Answer 5

还有这个应放在form中
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Answer 6

谢谢 kongwzg(跑) ( 
1.“lpDirectory String，想使用的完整路径”是干吗用的啊？我把“C:\"改成其他的好象一样用
2.还有“lpFile String，想用关联程序打印或打开一个程序名或文件名 ”中"mailto:[email protected]"是什么？它不是文件名啊，不明白
请教教我，我想送分给你怎么送？

Answer 7

你把下面的代码放在form中，并在form中加一个CommandButtenPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1Private Sub Command1_Click()
    ShellExecute Me.hwnd, vbNullString, "mailto:[email protected]", vbNullString, "C:\", SW_SHOWNORMALEnd Sub"mailto:[email protected]"是收件人的地址。送分：
你新开一个贴，主题为“kongwzg进来接分”就OK了。

Answer 8

你这个没有添加附件
而且调用的不是OUTLOOK EXPRESS
他没有发送功能

Answer 9

我又测试了一次，完全没问题(当然包括添加附件）。
我用的是中文vb6.0+sp5及win2k+ie6；OUTLOOK EXPRESS 6
如果你的还是不行的话我也不知道该怎样帮你了。

Answer 10

我以为要自己编一个发附件的app，
http://www.dapha.net/down/list.asp?id=1329

Answer 11

用OUTLOOK
'Email Variant
Dim m_strBody As String
Dim m_strSubject As String
Dim m_strEmailList As String'Outlook Variant
Dim m_objOutLook As Outlook.Application
Dim m_objMail As MailItem
Dim m_objAttach As Object
    
    Set m_objOutLook = New Outlook.Application
    Set m_objMail = m_objOutLook.CreateItem(olMailItem)
    
    With m_objMail
        .Subject = m_strSubject
        .Body = m_strBody
        Set m_objAttach = .Attachments.Add(strAttachment)
        .BCC = m_strEmailList
        .Send    End With