忘记添加附件了，补发

xuedejingling

Sub SendEmailByOutlook()

4 ]! u$ ~! G% c0 `        On Error Resume Next
3 ]8 c1 N$ U/ [9 ]. U4 C  ^* d6 Y+ W        Dim rowCount%, endRowNo%
        Dim objOutlook As Object
        Dim objMail As MailItem

        '庢摼摉慜岺嶌昞梌Cells(1,1)憡楢揑悢悩嬫峴悢
        endRowNo = Cells(1, 1).CurrentRegion.Rows.count

0 f0 x/ m# m2 r- ]8 R$ l# {        '憂寶objOutlook堊Outlook墳梡掱彉懳徾
        Set objOutlook = New Outlook.Application
1 i/ b4 r( x5 e/ u: Z! s$ ?
        '奐巒弞娐敪憲揹巕儊乕儖丆樃戞擇峴奐巒丆戞堦峴惀僥乕儅
! q) @3 @( {$ [/ M) H        For rowCount = 2 To endRowNo
           Set Newbook = objMail.Attachments.Add
5 X; f% ]/ V- N/ ^& ]           If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "仜" Then
; {1 c* ^4 ~4 W$ ?7 p$ u
+ c2 P# o" F3 Z
4 \8 w7 v) ]( x6 V' S9 v8 [                        '憂寶objMail堊堦槩儊乕儖懳徾
2 a; n# L9 L2 L4 W! t( F7 f' e                        Set objMail = objOutlook.CreateItem(olMailItem)
                With objMail
! b" N* W$ @* H! C# [& L4 k
                        '愝抲澗審恖抧毈
                        .To = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "e")     '"fantasia@sina.com"

                        '愝抲儊乕儖僥乕儅
! O! b" s3 d! O9 v+ ?                        .Subject = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "傊偺媼梌柧嵶"   '"儊乕儖僥乕儅"
/ F5 a/ u" k* I' c
: d4 q6 t( V' S: e' \$ i, g" H                        '愝抲儊乕儖撪梕
                        .Body = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "條" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "j") & "寧偺媼梌柧嵶傪偛棗偔偩偝偄丅"       '"儊乕儖撪梕"
                        '敾抐惀斲愝抲僷僗儚乕僪
                        If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h") <> "" Then

' z- F& K3 W6 |( K                        Newbook = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h")
- Y" B$ M1 p) Z- Y6 {" G
                        End If
8 d5 g9 ~1 v. N% O% H                        '愝抲晬審
                        .Attachments.Add Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "g")     '"c:\users.ctl"

4 b: s; ~/ Q/ j. g' P                        .send
5 j& V9 q- A6 |
2 j* j1 Y* B2 z, X                        MsgBox "暥審敪憲惉岟"
( i; q0 I) V* u( y9 @, B
5 V7 F! V) P+ R                  If Err.Number = 0 Then
% o; ]! v; H! e# w; `                        Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "惉岟"
& w. s* I1 S5 h) T' [- o                  Else
                       Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "幐攕"
" w2 K! ]& a) N. I* d; o9 V0 V/ d' Q                 End If
             Attachment.SaveAsFile "D:\mail" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "d")
       End With
8 T- O9 a1 P8 E   Application.DisplayAlerts = True
               Else
                Set objMail = Nothing
  Next
          'objOutlook懳徾傪攑婞偡傞
          Set objOutlook = Nothing
$ A" N5 O" b( {  h$ O   End If
1 k/ ]* T( B9 v9 w1 \8 SEnd Sub
* L. r( `8 u% ?) E' L


2 h. P+ ~' D; [/ i
0 n* P+ k+ n, o: P# k2 u. k

9 n3 Q+ G, L- \( v

" W% ^" [$ R% q8 g
7 l+ m# v. E3 H6 {9 z* e+ n5 }+ `