0
Excel 통합 문서 인 첨부 파일이 포함 된 전자 메일을 보내는 데 사용되는 Excel 매크로가 있습니다. 때로는 첨부 된 파일 대신 삽입 된 개체가됩니다. 이 포함 된 개체는 회사 내 사용자가 열 수 있습니다 ("바이러스가 있거나 컴퓨터에 해를 끼칠 수있는 포함 된 개체를 활성화하려고합니다.) 신뢰할 수있는 출처에서 왔는지 확인하는 것이 중요합니다. 계속 하시겠습니까? "), 회사 외부의 사람들에게는 이메일에 첨부 파일이 전혀없는 것으로 보입니다.첨부 파일이 포함됨
이것은 임의의 컴퓨터에서만 발생하는 것으로 보입니다. 목록에 15 개의 전자 메일 목록과 첨부 파일이있는 경우 전자 메일 중 0 ~ 15 개 사이에서 발생합니다. 명확히하기 위해, 내 목표는 일반 첨부 파일을 전자 메일로 보내는 것입니다. Excel 2003, Outlook 2003 및 Windows XP 실행
Sub Email()
Dim P As String
Dim N As String
Dim M As String
Dim Subject As String
Dim Addresses As String
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem
Application.DisplayAlerts = False
M = ActiveWorkbook.Name
For c = 2 To 64000
If Range("B" & c) = "" Then Exit For
If UCase(Range("E" & c)) = "Y" Then
Workbooks(M).Sheets("Main").Activate
Subject = Range("A" & c)
Addresses = Range("B" & c)
P = Range("C" & c)
N = Range("D" & c)
If Right(P, 1) <> "\" Then P = P & "\"
If Right(N, 4) <> ".xls" Then N = N & ".xls"
Set olApp = New Outlook.Application
Set olNewMail = olApp.CreateItem(olMailItem)
With olNewMail
.Display
.Recipients.Add Addresses
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys ("{TAB}")
.Subject = Subject
.Attachments.Add P + N
.Send
End With
Set olNewMail = Nothing
Set olApp = Nothing
End If
Next c
Range("E2:E65536").ClearContents
Application.DisplayAlerts = True
End Sub