[求助][已解决]EXCEL用LOTUS NOTES发邮件

smhf_6

谢谢谢谢winland、tonyibm、swsk

真是太好了，原来我就一直在想，我的数据提取（单位内网）是自动了，表格生成是自动了，结果上报（通过NOTES）要是也是自动就好了，真正的一步到位了，想想这好像是２个领域了，不太可能的事，也就没多想，今天看到了，居然也能行

EXCE-VBA真是牛啊

sxhzz

真牛楼主，真是急人之所需呀，谢谢

tdhiforum

用版主提供的程序想根据复选框选出的邮件地址发送后面对应的邮件，出现了两个问题
一个是复选框错位，选中第一行，结果值赋的是第二行的邮件地址
第二个运行到 .EmbedObject EMBED_ATTACHMENT, "", vaFiles(I)
时提示you must provide a file path 究竟什么原因？
我是vba菜鸟，只能用现有程序改改用用，请帮帮我实现这个功能，谢谢！

Sub SendWithLotus()
Const EMBED_ATTACHMENT = 1454
Const stSubject As String = "For Lotus VBA Programming Test only"

Dim noSession As Object, noDatabase As Object
Dim noDocument As Object, noAttachment As Object
Dim I%, stMsg$, FileSelf$
Dim vaRecipient() As String
Dim sh As Shape

stMsg = "内容" & vbCrLf & _
         Application.UserName

I = 0
ReDim vaRecipient(ActiveSheet.Shapes.Count - 1) As String
ReDim vaFiles(ActiveSheet.Shapes.Count - 1) As String
For Each sh In ActiveSheet.Shapes
    If sh.Type = msoFormControl Then
        If sh.FormControlType = xlCheckBox Then
            If sh.ControlFormat.Value = 1 Then
                vaRecipient(I) = sh.BottomRightCell.Offset(0, 1)
                'add by fy
                MsgBox vaRecipient(I), vbInformation
                vaFiles(I) = sh.BottomRightCell.Offset(0, 2)
                MsgBox vaFiles(I), vbInformation
                'add end
               
                I = I + 1
            End If
        End If
    End If
Next
If I = 0 Then MsgBox "No Names found to send mail to.": Exit Sub
ReDim Preserve vaRecipient(I - 1) As String

'del by fy
'vaFiles = Application.GetOpenFilename(FileFilter:="File Filer (*.*),*.*", Title:="Attach files for outgoing E_Mail ", MultiSelect:=True)
'If Not IsArray(vaFiles) Then Exit Sub
'del end

Set noSession = CreateObject("Notes.NotesSession")
Set noDatabase = noSession.GETDATABASE("", "")
If noDatabase.IsOpen = False Then noDatabase.OPENMAIL
Set noDocument = noDatabase.CreateDocument
Set noAttachment = noDocument.CreateRichTextItem("Body1")
'modi by fy
'With noAttachment
'    For I = 1 To UBound(vaFiles)
'        .EmbedObject EMBED_ATTACHMENT, "", vaFiles(I)
'    Next I
'End With

'With noDocument
'    .Form = "Memo"
'    .sendto = vaRecipient
'    .Subject = stSubject
'    .Body = stMsg
'    .SaveMessageOnSend = True
'    .PostedDate = Now()
'    .Send 0, vaRecipient()
'End With
'modi end

    For I = 1 To UBound(vaFiles)
    With noAttachment
        .EmbedObject EMBED_ATTACHMENT, "", vaFiles(I)
   
End With

With noDocument
    .Form = "Memo"
    .sendto = vaRecipient
    .Subject = stSubject
    .Body = stMsg
    .SaveMessageOnSend = True
    .PostedDate = Now()
    .Send 0, vaRecipient()
End With
Next I
'modi end
Set noDocument = Nothing
Set noDatabase = Nothing
Set noSession = Nothing
AppActivate "Microsoft Excel"
MsgBox "This file be sent", vbInformation

End Sub

tdhiforum

顶上来，谢谢啦。。。

winland

原帖由 tdhiforum 于 2010-11-24 14:47 发表
用版主提供的程序想根据复选框选出的邮件地址发送后面对应的邮件，出现了两个问题
一个是复选框错位，选中第一行，结果值赋的是第二行的邮件地址
第二个运行到 .EmbedObject EMBED_ATTACHMENT, "", vaFiles(I)
时 ...

你这个问题主要还是和复选框有关．建议你上传文件，如果内容不方便让它人知道的话，可以做一些假的地址和文件．

tdhiforum

多谢winland斑竹光临，新的帖子我发了，请指教，谢谢！
http://club.excelhome.net/thread-653522-1-2.html

winland

原帖由 tdhiforum 于 2010-11-25 20:26 发表
多谢winland斑竹光临，新的帖子我发了，请指教，谢谢！
http://club.excelhome.net/thread-653522-1-2.html

已在你的帖子上回复

jygzcj

lotus 这个系统现在都是很少人用的了。

jygzcj

这个历害啊

kxs5555

看看，我们在用