纠错

xuedejingling

Sub SendEmailByOutlook()

        On Error Resume Next
        Dim rowCount%, endRowNo%
        Dim objOutlook As Object
( `. E% p, Z  g- z3 A( j+ h' h! B        Dim objMail As MailItem
& _, I9 L/ J) g; _6 |
        '庢摼摉慜岺嶌昞梌Cells(1,1)憡楢揑悢悩嬫峴悢
; b3 M- ^# l$ f        endRowNo = Cells(1, 1).CurrentRegion.Rows.count
# {4 D! V6 T; N) A6 Y" z
        '憂寶objOutlook堊Outlook墳梡掱彉懳徾
        Set objOutlook = New Outlook.Application
8 S7 m0 }6 ]- ], N* j5 M5 U" {
        '奐巒弞娐敪憲揹巕儊乕儖丆樃戞擇峴奐巒丆戞堦峴惀僥乕儅
        For rowCount = 2 To endRowNo
/ X; H( X) e2 r9 M6 y           Set Newbook = objMail.Attachments.Add
1 q. l! k+ m, V. v" R2 E4 L           If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "仜" Then
  P9 r+ }+ z, r9 X
  N+ v5 ]4 x/ S0 V
- e) X& z+ E3 J                        '憂寶objMail堊堦槩儊乕儖懳徾
                        Set objMail = objOutlook.CreateItem(olMailItem)
                With objMail

                        '愝抲澗審恖抧毈
                        .To = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "e")     '"fantasia@sina.com"

                        '愝抲儊乕儖僥乕儅
                        .Subject = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "傊偺媼梌柧嵶"   '"儊乕儖僥乕儅"
* h0 q9 N* p8 c( n; Z3 K
4 @/ F3 Z4 I6 C                        '愝抲儊乕儖撪梕
                        .Body = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "條" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "j") & "寧偺媼梌柧嵶傪偛棗偔偩偝偄丅"       '"儊乕儖撪梕"
                        '敾抐惀斲愝抲僷僗儚乕僪
0 Y+ g) o0 o" D: b) @                        If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h") <> "" Then

                        Newbook = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h")
' ?5 l# G6 D& b/ G' p/ Q
                        End If
                        '愝抲晬審
2 \6 Z0 j& J+ p# B                        .Attachments.Add Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "g")     '"c:\users.ctl"
9 h! x% N; q. `1 z- C% ~
( A! C$ u" M* z3 h                        .send
4 Z, C. t: W! V! n' r4 }! i
5 n8 L5 Z) d; K+ E4 a6 [7 l" K7 [& o                        MsgBox "暥審敪憲惉岟"

                        Attachment.SaveAsFile "D:\mail" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "d")
& ]% W  J; `1 d) V* g
                   End With
                   If Err.Number = 0 Then
6 k8 z4 K3 c  `7 O                    Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "惉岟"
9 f% P$ E- x9 a, R2 ?    Else
# N+ M) f$ a( v+ Z1 a6 {        Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "幐攕"
    End If
- ~1 q! ?& X( M2 u. P; \; b" a
    Application.DisplayAlerts = True
8 B9 m, K6 c# P1 s! c+ I               Else
                Set objMail = Nothing
# [3 K0 ~: C" m0 O8 N% h3 L  Next
* Z/ W2 ]6 @3 f$ y) A5 e          'objOutlook懳徾傪攑婞偡傞
          Set objOutlook = Nothing
( ?; i, L3 k2 o7 v) R& m3 R. I( ^   End If
End Sub

xuedejingling

麻烦大家根据附件看一下我这程序的错误

xuedejingling

万分感谢