纠错

xuedejingling

Sub SendEmailByOutlook()

        On Error Resume Next
$ d( B/ o2 _2 {9 m- Y2 L5 u        Dim rowCount%, endRowNo%
- I6 ~: v9 Y( L. z, _" z        Dim objOutlook As Object
/ S4 a* w7 `% n  _1 _7 w9 q        Dim objMail As MailItem

3 k$ `, k4 W5 |# E# B- }) {        '庢摼摉慜岺嶌昞梌Cells(1,1)憡楢揑悢悩嬫峴悢
        endRowNo = Cells(1, 1).CurrentRegion.Rows.count
  _( Y$ T' L1 C; b
        '憂寶objOutlook堊Outlook墳梡掱彉懳徾
        Set objOutlook = New Outlook.Application

. J0 H" _8 M  q% Z. a2 k        '奐巒弞娐敪憲揹巕儊乕儖丆樃戞擇峴奐巒丆戞堦峴惀僥乕儅
  x( I, u5 P, c& f+ n* N        For rowCount = 2 To endRowNo
$ J' f# T2 q8 c4 E/ v# C) Z& h1 n: ]           Set Newbook = objMail.Attachments.Add
           If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "仜" Then
% W- s/ |7 ^& ?: W0 |9 F9 q" F2 N

                        '憂寶objMail堊堦槩儊乕儖懳徾
- V7 J- Q, D4 X; f+ ^+ V" |! ~                        Set objMail = objOutlook.CreateItem(olMailItem)
                With objMail

% j1 H% x! `* N3 M1 f- n: T                        '愝抲澗審恖抧毈
                        .To = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "e")     '"fantasia@sina.com"

: Y% d% ^$ @0 Q                        '愝抲儊乕儖僥乕儅
% Q9 A- }- K( m& V7 p                        .Subject = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "傊偺媼梌柧嵶"   '"儊乕儖僥乕儅"
* J4 M* T4 A4 J, O3 @
                        '愝抲儊乕儖撪梕
                        .Body = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "條" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "j") & "寧偺媼梌柧嵶傪偛棗偔偩偝偄丅"       '"儊乕儖撪梕"
                        '敾抐惀斲愝抲僷僗儚乕僪
# L7 j: l9 n7 X6 E  _  R                        If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h") <> "" Then

: z- p/ {4 g- x1 i1 v5 h3 B0 z                        Newbook = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h")

                        End If
8 E2 b& S5 h  {% W- T0 S                        '愝抲晬審
                        .Attachments.Add Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "g")     '"c:\users.ctl"

( B/ {7 m; R* v2 z                        .send
5 S& a9 @6 v: r) R/ M' X! a8 }
" }: V( ]$ ^$ i! @* N) k                        MsgBox "暥審敪憲惉岟"

                        Attachment.SaveAsFile "D:\mail" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "d")
. v- f, I8 p( \2 \6 V$ Z
. [9 v# B: S0 h$ Q% e8 f                   End With
                   If Err.Number = 0 Then
9 M- h- f# u% J! R: P! R4 ~  p                    Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "惉岟"
3 b, E8 M1 f: v) H    Else
        Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "幐攕"
    End If
% P$ t; U8 ^& Z1 y, S3 {
9 ^# p# }  P( `& k' W/ r9 ]    Application.DisplayAlerts = True
0 A' |/ o- {4 Y% ^6 ~! p               Else
                Set objMail = Nothing
  Next
          'objOutlook懳徾傪攑婞偡傞
          Set objOutlook = Nothing
7 m7 f% `3 \1 z% s   End If
% `" e. ?6 J- e% j8 U" P) y# ?End Sub
- {, [6 Y2 W: w. N+ v

  a  B; B- c; ^

xuedejingling

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

xuedejingling

万分感谢