忘记添加附件了，补发

xuedejingling

Sub SendEmailByOutlook()

& T3 d" h6 v9 F3 ?  [        On Error Resume Next
2 j" W( Q/ q8 K4 ?0 p8 A        Dim rowCount%, endRowNo%
) m5 E. }" A; f+ p        Dim objOutlook As Object
4 H) a# u8 Z4 ]1 P        Dim objMail As MailItem

        '庢摼摉慜岺嶌昞梌Cells(1,1)憡楢揑悢悩嬫峴悢
4 p! P  k3 [. u/ i9 {: G        endRowNo = Cells(1, 1).CurrentRegion.Rows.count

! g0 Z' s# t+ l        '憂寶objOutlook堊Outlook墳梡掱彉懳徾
        Set objOutlook = New Outlook.Application

. C0 C8 M8 D( M) F  o0 e+ k# G        '奐巒弞娐敪憲揹巕儊乕儖丆樃戞擇峴奐巒丆戞堦峴惀僥乕儅
7 W' \7 l( T( p        For rowCount = 2 To endRowNo
           Set Newbook = objMail.Attachments.Add
           If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "仜" Then

4 y/ M; A: e6 C0 X: D7 [
                        '憂寶objMail堊堦槩儊乕儖懳徾
                        Set objMail = objOutlook.CreateItem(olMailItem)
1 U8 [* G2 s* f) n  b1 E                With objMail
8 q8 `2 K1 U$ t. V# _" }
# n4 A% s& k" u                        '愝抲澗審恖抧毈
                        .To = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "e")     '"fantasia@sina.com"

                        '愝抲儊乕儖僥乕儅
$ _  y2 T/ e) L9 u- O/ Z% m: U                        .Subject = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "傊偺媼梌柧嵶"   '"儊乕儖僥乕儅"

5 w# ~  b! F' ]( D0 ~7 n                        '愝抲儊乕儖撪梕
2 P. ?7 q8 y& q5 m                        .Body = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "條" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "j") & "寧偺媼梌柧嵶傪偛棗偔偩偝偄丅"       '"儊乕儖撪梕"
                        '敾抐惀斲愝抲僷僗儚乕僪
                        If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h") <> "" Then

. f5 R  A" F; P1 T: i2 U8 ~                        Newbook = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h")
) a* l5 ?/ {7 {8 `
5 s. r3 q1 C: M6 n  ?, ?5 Y                        End If
+ d6 X# S' h  w# Q                        '愝抲晬審
                        .Attachments.Add Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "g")     '"c:\users.ctl"

                        .send
% f4 a! x0 Q5 Z5 |8 E( e: A2 i
                        MsgBox "暥審敪憲惉岟"

                  If Err.Number = 0 Then
                        Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "惉岟"
                  Else
                       Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "幐攕"
. k) T* t; B2 W2 c. C5 Y5 u                 End If
) F7 ?( g5 u) t7 A             Attachment.SaveAsFile "D:\mail" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "d")
/ _' e; [, E* [+ p8 V$ h% J       End With
   Application.DisplayAlerts = True
               Else
                Set objMail = Nothing
  Next
          'objOutlook懳徾傪攑婞偡傞
          Set objOutlook = Nothing
   End If
$ w* V1 R+ ^5 r) |End Sub
9 j1 q% Z5 B6 K. k3 A1 W; R
( a) r( C" ?3 N) U