직원 이름, 전자 메일 ID 및 DOB 세 열이있는 Excel 시트가 있습니다.Outlook 메일의 회신 주소 변경
직원의 생년월일과 Outlook 메일을 보낼 오늘 날짜가 일치하는 매크로를 직원에게 보내고 내 부서에 CC를 보냈습니다.
모든 직원이 해당 메일을 볼 때 답장을 클릭하거나 모두에게 답장을 보낼 수 있습니다.
To 주소 필드를 생일 이메일 주소로 대체하는 다른 Outlook 매크로를 작성했습니다.
두 번째 매크로는 열려있는 모든 Outlook 전자 메일에서 내 시스템에서 작동합니다.
Outlook 매크로가 있기 때문에 실행할 수 있지만 모든 직원 시스템에서 동일한 작업을 수행하려면이 Outlook 매크로가 필요합니다. 수동으로 시스템에이 매크로를 넣지 않고 어떻게 시스템에서 실행할 수 있습니까?
다음 코드는 ObjMail이 작성중인 메시지라고 가정합니다. 직원에게 보낸
' Delete any existing reply recipients
Do While ObjMail.ReplyRecipients.Count > 0
ObjMail.ReplyRecipients.Remove 1
Loop
' Add the new recipient
ObjMail.ReplyRecipients.Add "[email protected]"
' Send blind copy to other staff members
ObjMail.BCC = "Staff1.isp.com, Staff2.isp.com, Staff3.isp.com"
메시지는 생일 메시지를 보내는 누구로부터 온 말할 것이다. 하지만 누구나 답장을 보내면받는 사람은 "[email protected]"이됩니다.
나는 다른 직원에게 시각 장애 사본을 보냈습니다. 직원 목록이 비밀이기 때문에가 아니라 다음과 같은 이유 때문입니다.
나는 수천 명의 직원이 전국에 흩어져있는 영어 NHS에서 수년 전에 일했기 때문에 메시지 크기가 걱정됩니다. 소규모 병원의 누군가가 병원 내에서 판매 할 자전거 광고를하려했지만 해당 국가의 모든 직원에게 광고를하도록 관리했습니다. 나는 느린 전화 접속 회선으로 집에서 일했다. 이 메시지를 다운로드하는 데 30 분의 시간이 걸렸습니다. 나는 내 대답을 테스트하는 데 사용되는 전체 루틴을 포함 아래 응답
새로운 섹션
일상적인 테스트의 전체 코드를 요청합니다. 그것은 또 다른 대답을 위해 작성한 일상에서 수정되었습니다. 그것은 원하지 않을 수도있는 HTML 본문을 생성하지만 그렇게 할 수있는 방법을 보여줍니다. 나는 나의 테스트에 사용 된 실제 이메일 주소를 더미 주소로 대체했다. 그렇지 않으면 변경되지 않습니다.
Sub ReplyToRecipientWithBlindCopies()
' Create a mail item with a simple message.
' Send the mail item to "[email protected]" and make them
' the recipient of any replies.
' Send blind copies to all other recipients.
' Author: Tony Dallimore, York, England
Dim OlApp As Outlook.Application
Dim ObjMail As Outlook.MailItem
Dim MessageBody As String
' This creates a blue message on a grey background. This is a
' demonstration of what is possible; not a recommendation!
MessageBody = "<table width=""100%"" style=""Color:#0000FF;" & _
" background-color:#F0F0F0;""><tr><td align= ""center"">" & _
"Happy birthday from all your colleagues!</td></tr></table>"
Set OlApp = Outlook.Application
Set ObjMail = OlApp.CreateItem(olMailItem)
With ObjMail
.BodyFormat = olFormatHTML
.Subject = "Happy birthday!"
.HTMLBody = HeadAndBodyToHtmlDoc("", MessageBody)
' Remove any existing recipients
Do While .Recipients.Count > 0
.Recipients.Remove 1
Loop
' Remove any existing reply recipients
Do While .ReplyRecipients.Count > 0
.ReplyRecipients.Remove 1
Loop
' Add birthday person to Recipient and ReplyRecipient lists
.Recipients.Add "[email protected]"
.ReplyRecipients.Add "[email protected]"
' You will need to replace this with a loop
' to add all your staff members.
.BCC = "[email protected], [email protected], [email protected]"
' Display the prepared messages ready for any final changes.
' The user must send it.
.Display
End With
End Sub
Function HeadAndBodyToHtmlDoc(Head As String, Body As String) As String
' Wrap Head and Body created by caller in a standard envelope.
' Author: Tony Dallimore, York, England
HeadAndBodyToHtmlDoc = _
"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Frameset//EN""" & _
" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd"">" & _
vbCr & vbLf & "<html xmlns=""http://www.w3.org/1999/xhtml""" & _
" xml:lang=""en"" lang=""en"">" & vbCr & vbLf & "<head><meta " & _
"http-equiv=""Content-Type"" content=""text/html; " & _
"charset=utf-8"" />" & vbCr & vbLf & Head & vbCr & vbLf & _
"</head><body>" & vbCr & vbLf & Body & "</body></html>"
End Function
안녕하세요 Tony, 도와 주셔서 감사합니다 –
Tony, 어떻게이 매크로를 보낼 수 있습니까? 모든 생일 이메일 ....... –
내 대답의 추가 섹션은 귀하가 추구하는 추가 정보를 제공해야합니다. 내 대답이 당신의 요구 사항을 충족한다면, 당신이 그것을 받아 들인다면 고맙겠습니다. –
줄의 시작 부분에 공백이 있으면 줄은 코드로 서식이 지정됩니다. 질문을 읽을 수 있도록 공백을 삭제했습니다. –
[무엇을 시도 했습니까?] (http://mattgemmell.com/2008/12/08/what-have-you-tried/) –