纠错

xuedejingling

Sub SendEmailByOutlook()
- L( j. g* ], X. H9 A
        On Error Resume Next
/ D4 J$ f- I4 M        Dim rowCount%, endRowNo%
$ b" j/ f; q% ]2 {        Dim objOutlook As Object
        Dim objMail As MailItem
, a# U/ R/ S& v
6 y  W" L: y# K/ Z0 x* B2 Y        '庢摼摉慜岺嶌昞梌Cells(1,1)憡楢揑悢悩嬫峴悢
( ^# s$ H6 t1 B2 }& \8 m        endRowNo = Cells(1, 1).CurrentRegion.Rows.count

; f4 B8 e) {( n4 i1 P: W6 X6 v        '憂寶objOutlook堊Outlook墳梡掱彉懳徾
        Set objOutlook = New Outlook.Application

/ ^. Z$ |6 W. f( L3 `        '奐巒弞娐敪憲揹巕儊乕儖丆樃戞擇峴奐巒丆戞堦峴惀僥乕儅
  H+ g8 R% X$ j3 k: o  A  t        For rowCount = 2 To endRowNo
           Set Newbook = objMail.Attachments.Add
' B: {( g: ]7 @+ M           If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "仜" Then


                        '憂寶objMail堊堦槩儊乕儖懳徾
' X+ e6 f9 e0 V                        Set objMail = objOutlook.CreateItem(olMailItem)
                With objMail

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

! O  B5 I3 Q6 Y( a. o$ m/ c/ j  Z  Q7 R; g                        '愝抲儊乕儖僥乕儅
& l/ s, a- {. }/ I! D/ ]+ Z                        .Subject = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "傊偺媼梌柧嵶"   '"儊乕儖僥乕儅"
- X: N" _0 Y7 v0 ]$ P" i1 \- r
                        '愝抲儊乕儖撪梕
7 S: D: @; ^5 \; l                        .Body = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "i") & "條" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "j") & "寧偺媼梌柧嵶傪偛棗偔偩偝偄丅"       '"儊乕儖撪梕"
                        '敾抐惀斲愝抲僷僗儚乕僪
7 A6 I4 [* W$ E" T) j. M                        If Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h") <> "" Then
$ I) |( u" k& B1 k  D
% L9 C! i9 j& v5 _  ^" d                        Newbook = Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "h")

                        End If
                        '愝抲晬審
% Z# f3 Z+ ~' Q                        .Attachments.Add Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "g")     '"c:\users.ctl"
; \/ Q- s% c' n7 `6 C
4 a6 g& A  J! t/ v: d9 u: i/ ?; J                        .send
( o5 o& X2 D# `/ `8 \, e
                        MsgBox "暥審敪憲惉岟"

, }+ P, y% l2 {- u! a' d( U                        Attachment.SaveAsFile "D:\mail" & Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "d")

( L; U/ _. E6 k6 J: A* @3 a) J8 J                   End With
                   If Err.Number = 0 Then
                    Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "惉岟"
    Else
! j; I; i4 S7 \8 f/ F) C        Worksheets("憲怣埗柤堦棗媦傃抲姺暥帤").Cells(rowCount, "a") = "幐攕"
- h# q/ N9 t, l, V6 m' t, W/ W    End If

    Application.DisplayAlerts = True
8 B* C3 U$ k: {1 a               Else
6 Z2 a. {; |. e+ p' W$ c                Set objMail = Nothing
  Next
          'objOutlook懳徾傪攑婞偡傞
          Set objOutlook = Nothing
1 R& `, W3 M: Q8 f   End If
End Sub
  C3 I. t0 s, S$ T1 t' E
  _. {( @8 ]2 @: |5 E% E& O, U

xuedejingling

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

xuedejingling

万分感谢