Note: The other languages of the website are Google-translated. Back to English

Excel에서 이메일을 보낼 때 Outlook 서명을 삽입하는 방법은 무엇입니까?

Excel에서 직접 전자 메일을 보내려는 경우 전자 메일에 기본 Outlook 서명을 어떻게 추가할 수 있습니까? 이 문서에서는 Excel에서 전자 메일을 보낼 때 Outlook 서명을 추가하는 데 도움이 되는 두 가지 방법을 제공합니다.

Excel VBA로 보낼 때 Outlook 전자 메일에 서명 삽입
놀라운 도구를 사용하여 Excel에서 전자 메일을 보낼 때 Outlook 서명을 쉽게 삽입

Excel 메일 링에 대한 추가 자습서 ...


Excel VBA로 보낼 때 Outlook 전자 메일에 서명 삽입

예를 들어, Excel에서 이러한 모든 주소로 이메일을 보내고 이메일에 기본 Outlook 서명을 추가하기 위해 워크시트에 이메일 주소 목록이 있습니다. 이를 달성하려면 아래 VBA 코드를 적용하십시오.

1. 이메일을 보내려는 이메일 주소 목록이 포함 된 워크 시트를 연 다음 다른 + F11 열쇠.

2. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 기준 치수, 그런 다음 아래를 복사하십시오. VBA 2 모듈 코드 창으로.

3. 이제 교체해야합니다. .몸 라인 인 VBA 2 코드와 함께 VBA 1. 그 후, 라인을 이동 .디스플레이 라인 아래 xMailOut 사용.

VBA 1: Excel에서 Outlook 기본 서명을 사용하여 이메일을 보내는 템플릿

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2 : Excel의 셀에 지정된 전자 메일 주소로 전자 메일 보내기

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

다음 스크린 샷은 VBA 코드를 변경 한 후 차이점을 쉽게 찾을 수 있도록 도와줍니다.

4. 누르세요 F5 코드를 실행하는 키입니다. 그 다음에 Excel 용 Kutools 선택 상자가 나타나면 이메일을 보낼 이메일 주소를 선택한 다음 좋아요.

그러면 이메일이 생성됩니다. 이메일 본문 끝에 Outlook 기본 서명이 추가된 것을 볼 수 있습니다.

팁 :

  • 1. 필요에 따라 VBA 코드 1에서 이메일 본문을 변경할 수 있습니다.
  • 2. 코드 실행 후 사용자 정의 유형이 정의되지 않았다는 오류 대화 상자가 나타나면이 대화 상자를 닫고 클릭하십시오. 도구 > 참조 에서 응용 프로그램 용 Microsoft Visual Basic 창문. 오프닝에서 참조 – VBAProject 창, 확인 Microsoft Outlook 개체 라이브러리 상자를 클릭하고 좋아요. 그런 다음 코드를 다시 실행하십시오.

놀라운 도구를 사용하여 Excel에서 전자 메일을 보낼 때 Outlook 서명을 쉽게 삽입

VBA의 초보자라면 여기에서 이메일 보내기 ~의 유용성 Excel 용 Kutools 당신을 위해. 이 기능을 사용하면 Excel의 특정 필드를 기반으로 이메일을 쉽게 보내고 여기에 Outlook 서명을 추가 할 수 있습니다. 다음과 같이하십시오.

신청하기 전에 Excel 용 Kutools, 제발 먼저 다운로드하여 설치하십시오..

먼저 이메일을 보낼 다른 필드로 메일 링리스트를 만들어야합니다.

필요에 따라 수동으로 메일 링리스트를 생성하거나 메일 링리스트 생성 기능을 적용하여 신속하게 완료 할 수 있습니다.

1. 클릭 쿠툴즈 플러스 > 메일 링리스트를 만듭니다.

2. 에서 메일 링리스트 생성 대화 상자에서 필요한 필드를 지정하고 목록을 출력 할 위치를 선택한 다음 OK 버튼을 클릭합니다.

3. 이제 메일 링리스트 샘플이 생성됩니다. 샘플 목록이므로 필요한 특정 내용으로 필드를 변경해야합니다. (여러 행 허용)

4. 그 후 전체 목록 (헤더 포함)을 선택하고 쿠툴즈 플러스 > 이메일을 보냅니다.

5. 에서 이메일 보내기 대화 상자 :

  • 5.1) 선택한 메일 링 목록의 항목은 해당 필드에 자동으로 배치됩니다.
  • 5.2) 이메일 본문을 완성하십시오.
  • 5.3) 모두 확인 Outlook을 통해 이메일 보내기Outlook의 서명 설정 사용 상자;
  • 5.4) 클릭 전송 단추. 스크린 샷보기 :

이제 이메일이 전송됩니다. 그리고 기본 Outlook 서명이 이메일 본문 끝에 추가됩니다.

  무료 평가판(30-일) 이 유틸리티의 그것을 다운로드하려면 클릭하십시오을 클릭 한 다음 위 단계에 따라 작업 적용으로 이동합니다.


관련 기사 :

Excel의 셀에 지정된 이메일 주소로 이메일 보내기
전자 메일 주소 목록이 있고 Excel에서 직접 이러한 전자 메일 주소로 전자 메일 메시지를 대량으로 보내려고한다고 가정합니다. 그것을 달성하는 방법? 이 기사에서는 Excel의 셀에 지정된 여러 이메일 주소로 이메일을 보내는 방법을 보여줍니다.

지정된 범위를 복사하여 Excel의 이메일 본문에 붙여 넣은 이메일 보내기
대부분의 경우 Excel 워크 시트에 지정된 범위의 내용이 전자 메일 통신에 유용 할 수 있습니다. 이 기사에서는 Excel에서 직접 이메일 본문에 지정된 범위를 붙여 넣은 이메일을 보내는 방법을 소개합니다.

Excel에 첨부 된 여러 첨부 파일이있는 전자 메일 보내기
이 기사에서는 Excel에 여러 첨부 파일이 첨부 된 Outlook을 통해 전자 메일을 보내는 방법에 대해 설명합니다.

Excel에서 기한이 충족되면 전자 메일 보내기
예를 들어 C 열의 기한이 7 일 이하인 경우 (현재 날짜는 2017/9/13) A 열의 지정된 수신자에게 B 열에 지정된 내용과 함께 이메일 알림을 보냅니다. 방법 그것을 이루다? 이 기사에서는 VBA 방법을 자세히 설명합니다.

Excel의 셀 값에 따라 자동으로 이메일 보내기
Excel의 지정된 셀 값을 기반으로 Outlook을 통해 특정 수신자에게 이메일을 보내려고한다고 가정합니다. 예를 들어 워크 시트의 D7 셀 값이 200보다 크면 전자 메일이 자동으로 생성됩니다. 이 기사에서는이 문제를 빠르게 해결할 수있는 VBA 방법을 소개합니다.

Excel 메일 링에 대한 추가 자습서 ...


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (27)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 감사합니다. 이 템플릿으로 제 생명을 구합니다 :D
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 파비오,
기꺼이 도와 드리겠습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Office 2016에서 첨부 파일과 함께 작동하지 않음
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 크리스,
아래 VBA 코드가 도움이 될 수 있습니다. 코드를 실행한 후 이메일을 보낼 이메일 주소가 포함된 셀을 선택한 다음 두 번째 대화 상자가 표시되면 이메일에 첨부할 파일을 첨부 파일로 선택하십시오. 그리고 기본 Outlook 서명은 이메일 본문에도 표시됩니다. 당신의 의견에 감사드립니다.

하위 SendEmailToAddressInCells()
범위로 Dim xRg
범위로 Dim xRgEach
문자열로 Dim xRgVal
Dim xAddress를 문자열로
Dim xOutApp As Outlook.Application
xMailOut을 Outlook.MailItem으로 흐리게 처리
오류에 대한 다음 재개
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("이메일 주소 범위를 선택하십시오", "KuTools For Excel", xAddress, , , , , 8)
xRg가 아무것도 없으면 Sub를 종료하십시오.
Application.ScreenUpdating = False
xOutApp 설정 = CreateObject("Outlook.Application")
xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues) 설정
xFileDlg 설정 = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.Show = -1이면
xRg의 각 xRgEach에 대해
xRgVal = xRgEach.값
If xRgVal Like "?*@?*.?*" 그러면
xMailOut = xOutApp.CreateItem(olMailItem) 설정
xMailOut 사용
.디스플레이
.To = xRgVal
.제목 = "테스트"
.HTMLBody = "Excel로 보내는 테스트 이메일입니다." & "
" & .HTML바디
xFileDlg.SelectedItems의 각 xFileDlgItem에 대해
.Attachments.xFileDlgItem 추가
다음 xFileDlgItem
'.보내다

END IF
다음
xMailOut = 없음 설정
xOutApp = 없음 설정
Application.ScreenUpdating = True
END IF
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
"기본"이라는 제목의 Outlook 서명을 추가하려고 하지만 작동하는 것 같지 않습니다.
도와주시겠습니까? 내 "xMailout" 논리가 잘못되었다고 생각합니다. 이것은 내가 의심되는 결함 영역입니다.

Private Sub CommandButton1_Click ()

개체로 Dim xOutApp
Dim xOutMail을 개체로
Dim xMailBody를 문자열로
xMailOut을 Outlook.MailItem으로 흐리게 처리
오류에 대한 다음 재개
xOutApp 설정 = CreateObject("Outlook.Application")
xOutMail = xOutApp.CreateItem(0) 설정
xMailBody = "인사말:" & vbNewLine & vbNewLine & _
"이것은 라인 1입니다" & vbNewLine & _
"이것은 라인 2입니다" & vbNewLine & _
"이것은 라인 3입니다" & vbNewLine & _
"이것이 4호선입니다"
오류에 대한 다음 재개
xOutMail과 함께
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "여기에 이메일 제목 - " & Range("Cell#").value
.Body = xMailBody
. Attachments.ActiveWorkbook.FullName 추가
xMailOut = xOutApp.CreateItem(olMailItem) 설정
xMailOut 사용
.디스플레이

ActiveWorkbook.Save
오류 발생시 0
xOutMail 설정 = 없음
xOutApp = 없음 설정
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
스크립트가 수정되었습니다. 시도하십시오. 고맙습니다.

Private Sub CommandButton1_Click ()
개체로 Dim xOutApp
Dim xOutMail을 개체로
Dim xMailBody를 문자열로
xMailOut을 Outlook.MailItem으로 흐리게 처리
오류에 대한 다음 재개
xOutApp 설정 = CreateObject("Outlook.Application")
xOutMail = xOutApp.CreateItem(0) 설정
xMailBody = "인사말:" & vbNewLine & vbNewLine & _
"이것은 라인 1입니다" & vbNewLine & _
"이것은 라인 2입니다" & vbNewLine & _
"이것은 라인 3입니다" & vbNewLine & _
"이것이 4호선입니다"
오류에 대한 다음 재개
xOutMail과 함께
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "여기에 이메일 제목 - " & Range("Cell#").Value
.Body = xMailBody
.Attachments.ActiveWorkbook.FullName 추가
xMailOut = xOutApp.CreateItem(olMailItem) 설정
xMailOut 사용
.디스플레이


ActiveWorkbook.Save
오류 발생시 0
xOutMail 설정 = 없음
xOutApp = 없음 설정
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
여러 사용자가 매크로를 사용하는 경우 서명을 추가하는 방법.
예를 들어 내 매크로도 3명의 다른 사람이 실행합니다. 그러면 매크로는 매크로를 실행하는 사용자의 서명을 어떻게 사용할 수 있습니까?
사전에 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
VBA 코드는 보낸 사람의 Outlook에서 기본 서명을 자동으로 인식하고 Outlook을 통해 자신의 서명으로 전자 메일을 보낼 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
내 본문 텍스트가 Excel 필드에서 가져오기 위해 연결되어 있는 경우 문자열 끝에 & .HTMLBody를 사용하면 본문 텍스트가 모두 지워지고 서명만 남습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Excel 2016에서 이 작업을 실행하는 데 문제가 있습니다. "컴파일 오류: 사용자 정의 유형이 정의되지 않음" 메시지가 나타납니다. 도와주세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
훌륭한!!!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
고마워 ...
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 매크로에 대한 도움이 필요합니다. 테이블 아래에 Outlook 서명을 삽입해야 합니다. 도와주시겠습니까?

Private Sub CommandButton1_Click ()


개체로 희미한 전망
개체로 newEmail 흐리게 처리
Dim xInspect를 개체로
Dim pageEditor를 개체로

Outlook 설정 = CreateObject("Outlook.Application")
newEmail = outlook.CreateItem(0) 설정

새이메일로
.To = Sheet5.Range("F1")
.CC = ""
.BCC = ""
.제목 = Sheet5.Range("B5")
.Body = Sheet5.Range("B41")
.표시하다

xInspect = newEmail.GetInspector 설정
pageEditor = xInspect.WordEditor 설정

Sheet5.Range("B6:I7").복사

pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat(wdFormatPlainText)

.표시하다
페이지 편집기 설정 = 없음
xInspect = 없음 설정


newEmail = 없음 설정
전망 설정 = 없음

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 바라님
죄송합니다. 도와드릴 수 없습니다. 귀하의 의견에 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
소중한,
누군가 내 VBA를 도와줄 수 있습니까?
생성된 이메일에 서명이 필요합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
덕분에 지금 서명을 추가할 수 있지만 텍스트 단락 사이의 공백이 제거됩니다. 도와 주실 수 있으신가요 ?


하위 helloworld()
OutApp을 개체로 흐리게 처리
OutMail을 개체로 흐리게 처리
범위로 희미한 셀
문자열로 희미한 경로
경로 = Application.ActiveWorkbook.Path
OutApp = CreateObject("Outlook.Application") 설정

범위("C4:C6")의 각 셀에 대해
OutMail 설정 = OutApp.CreateItem(0)
아웃메일과 함께
.디스플레이
.To = 셀.값
.Subject = Cells(cell.Row, "D").Value
.HTMLBody = "친애하는" & Cells(cell.Row, "B").Value & "," _
& vbNewLine & vbNewLine & _
"따뜻한 인사말" _
& vbNewLine & vbNewLine & _
"저희 JK Overseas는 지난 3년간 소금 사업을 하고 있는 당사 JK Overseas를 기회로 소개하고자 합니다. 현재 국내에서 강세를 보이고 있으며 해외로 확장하고 있습니다. 저희는 식용 소금, 연수화 소금, 제빙 소금, 산업용 소금" & "." _
& vbNewLine & vbNewLine & _
"우리는 인도의 대규모 제조업체와 제휴하여 양질의 소금 및 수출품을 조달합니다. 따라서 상호 이익이 있는 장기간 비즈니스를 수행할 신뢰할 수 있는 전문 수입업체 및 유통업체 에이전트를 찾고 있습니다." & " ." _
& vbNewLine & vbNewLine & _
"요구 사항이나 기타 문의 사항이 있는 경우 당사에 문의하십시오. 우리는 안정적인 물류 및 정시 배송을 제공합니다. 가장 경쟁력 있는 가격이 귀하의 기대와 일치할 것이라고 확신합니다." & ". _
& vbNewLine & vbNewLine & _
.HTML본문

'.보내다

다음 셀
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드를 현재 가지고 있는 현재 형식에 통합하려고 합니다. 그러면 설정된 값 범위를 기반으로 Excel 내에서 이메일을 자동화할 수 있습니다. 현재 가지고 있는 것 내에 '서명' 코드를 추가할 위치에 관한 도움을 주시면 감사하겠습니다.

공개 하위 CheckAndSendMail()

'에 의해 업데이트됨 Extendoffice 2018 / 11 / 22

Dim xRgDate를 범위로

Dim xRg범위로 보내기

Dim xRgText를 범위로

범위로 Dim xRgDone

개체로 Dim xOutApp

xMailItem을 개체로 흐리게 처리

Dim xLastRow As Long

문자열로 Dim vbCrLf

Dim xMailBody를 문자열로

문자열로 Dim xRgDateVal

Dim xRgSendVal을 문자열로

Dim xMailSubject를 문자열로

흐릿한 I As Long

오류에 대한 다음 재개

'마감일 범위를 지정하십시오.

xStrRang = "D2:D110"

xRgDate = 범위(xStrRang) 설정

'수신자 이메일 주소 범위를 지정하십시오

xStrRang = "C2:C110"

xRgSend = 범위(xStrRang) 설정

xStrRang = "A2:A110"

xRgName 설정 = 범위(xStrRang)

'이메일에 알림 내용이 포함된 범위 지정

xStrRang = "Z2:Z110"

xRgText = Range(xStrRang) 설정

xLastRow = xRgDate.Rows.Count

xRgDate = xRgDate(1) 설정

xRgSend = xRgSend(1) 설정

xRgName = xRgName(1) 설정

xRgText = xRgText(1) 설정

xOutApp 설정 = CreateObject("Outlook.Application")

I = 1의 경우 xLastRow까지

xRgDateVal = ""

xRgDateVal = xRgDate.Offset(I - 1).값

xRgDateVal <> ""이면

CDate(xRgDateVal) - 날짜 <= 30이고 CDate(xRgDateVal) - 날짜 > 0이면

xRgSendVal = xRgSend.Offset(I - 1).값

xMailSubject = " & xRgDateVal에 만료되는 JBC 서비스 계약

vbCrLf = "

"

xMailBody = ""

xMailBody = xMailBody & "친애하는" & xRgName.Offset(I - 1).Value & vbCrLf

xMailBody = xMailBody & " " & xRgText.Offset(I - 1).Value & vbCrLf

xMailBody = xMailBody & ""

xMailItem = xOutApp.CreateItem(0) 설정

xMailItem 사용

.제목 = xMail제목

.To = xRgSendVal

.CC = "mailcc@justbettercare.com"

.HTMLBody = xMailBody

.디스플레이

'.보내다



xMailItem 설정 = 없음

END IF

END IF

다음

xOutApp = 없음 설정

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 유용한 코드입니다
xOutMsg 줄에서 오른쪽에서 왼쪽으로 텍스트 형식을 변경해야 합니다.
도와주세요 .
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Excel에서 개별 시트를 다른 이메일로 보내려고 하는데 통합 문서 자체만 첨부됩니다. 또한 내 서명란을 추가할 수 있어야 합니다. 도움이 필요하십니까?Sub AST_Email_From_Excel()

개체로 전자 메일 응용 프로그램을 흐리게
이메일 항목을 개체로 흐리게 처리

emailApplication = CreateObject("Outlook.Application") 설정
emailItem = emailApplication.CreateItem(0) 설정

' 이제 이메일을 작성합니다.

emailItem.to = 범위("e2").값

emailItem.CC = 범위("g2").값

emailItem.Subject = "반환되지 않은 기술 장비"

emailItem.Body = "귀하의 지역에서 반환되지 않은 항목에 대해서는 첨부된 스프레드시트를 참조하십시오."

'현재 통합 문서 첨부
emailItem.Attachments.ActiveWorkbook.FullName 추가

'컴퓨터에 있는 아무 파일이나 첨부하세요.
'emailItem.Attachments.Add("C:\...)"

'이메일을 보내
'emailItem.send

'사용자가 이메일을 보내기 전에 원하는 대로 변경할 수 있도록 이메일을 표시합니다.
이메일 항목.디스플레이

이메일 항목 설정 = 없음
emailApplication = 없음 설정

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 Chris, 제공한 코드가 수정되었습니다. 이제 Outlook 서명을 메시지 본문에 삽입할 수 있습니다. 시도해 보십시오. 고맙습니다. 하위 AST_Email_From_Excel()
'에 의해 업데이트됨 Extendoffice 20220211
개체로 전자 메일 응용 프로그램을 흐리게
이메일 항목을 개체로 흐리게 처리
emailApplication = CreateObject("Outlook.Application") 설정
emailItem = emailApplication.CreateItem(0) 설정

' 이제 이메일을 작성합니다.
emailItem.Display '사용자가 이메일을 보내기 전에 원하는 대로 변경할 수 있도록 이메일을 표시합니다.
emailItem.to = 범위("e2").값
emailItem.CC = 범위("g2").값
emailItem.Subject = "반환되지 않은 기술 장비"
emailItem.HTMLBody = "귀하의 지역에서 반환되지 않은 항목에 대해서는 첨부된 스프레드시트를 참조하십시오." & " " & emailItem.HTML바디

'현재 통합 문서 첨부
emailItem.Attachments.ActiveWorkbook.FullName 추가

이메일 항목 설정 = 없음
emailApplication = 없음 설정

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 Crystal님, 서명을 추가할 수 있게 해 주셔서 감사합니다. 하지만 HTMLBody 섹션이 마음에 들지 않는 것 같습니다. 매크로를 실행하면 emailItem.HTMLBody = "귀하의 지역에서 반환되지 않은 항목에 대해서는 첨부된 스프레드시트를 참조하십시오." & " " & emailItem.HTMLBody 및 나머지는 완료하지 않습니다.  
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
어떤 Excel 버전을 사용하고 있습니까? 다음 VBA 코드도 도움이 될 수 있습니다. 시도해 보십시오. 의견을 보내주셔서 감사합니다. 하위 SendWorkSheet()
' 업데이트 Extendoffice 20220218
Dim xFile을 문자열로
xFormat을 최대한 흐리게
통합 문서로 희미한 Wb
통합 문서로 희미한 Wb2
Dim FilePath를 문자열로
문자열로 Dim FileName
OutlookApp을 개체로 흐리게 처리
OutlookMail을 개체로 흐리게 처리
오류에 대한 다음 재개
Application.ScreenUpdating = False
Wb = Application.ActiveWorkbook 설정
활성시트.복사
Wb2 = Application.ActiveWorkbook 설정
케이스 Wb.FileFormat 선택
사례 xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXML워크북
케이스 xlOpenXMLWorkbookMacroEnabled:
Wb2.HasVBProject이면
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
다른
xFile = ".xlsx"
xFormat = xlOpenXML워크북
END IF
사례 Excel8:
xFile = ".xls"
x형식 = Excel8
케이스 xlExcel12:
xFile = ".xlsb"
x형식 = xlExcel12
선택 종료
파일 경로 = Environ$("temp") & "\"
파일 이름 = Wb.Name 및 형식(지금, "dd-mmm-yy h-mm-ss")
OutlookApp = CreateObject("Outlook.Application") 설정
OutlookMail 설정 = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
'xstr = 범위("e2") & " ; " & 범위("g2")
OutlookMail 사용
.디스플레이
.To = 범위("e2")
.CC = 범위("g2")
.BCC = ""
.Subject = "반환되지 않은 기술 장비"
.HTMLBody = "귀하의 지역에서 반품되지 않은 품목에 대해서는 첨부된 스프레드시트를 참조하십시오." & " " & .HTML바디
.Attachments.Wb2.FullName 추가
'.보내다

Wb2.닫기
FilePath & FileName & xFile 죽이기
OutlookMail 설정 = 없음
OutlookApp 설정 = 없음
Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Excel 2016 및 VBA 7.1인 것 같습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Oi Cristal, 이메일, com imagens e formatação original 구성에 대한 최소 매크로 perde a assinatura do e-mail. 코모 콘시고 리졸버?

서브 제라메일()

Outlook.Application으로 희미한 OLapp
Dim janela As Outlook.MailItem

OLapp = 새 Outlook.Application 설정
janela = OLapp.CreateItem(olMailItem) 설정

Arquivo01 = "마파 AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"


자넬라와 함께
ActiveWorkbook.Save
.디스플레이
.To = Sheets("Base").Range("A2").Value
.CC = Sheets("기본").Range("A5").값
.Subject = "Mapa - Acrilo " & 형식(날짜, "dd.mm.yy")
암살자 = .Body
.Body = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila 고려 사항을 Vendas previstas no S&OP로." & Chr(10) & Chr(10) & assinatura
.첨부파일.Anexo01 추가


최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Com a mudança abaixo, consegui ajustar. Porem a letra do corpo da mensagem fica em Times New Roman. Gostaria de usar Calibri, como posso alterar o codigo?

서브 제라메일()

Outlook.Application으로 희미한 OLapp
Dim janela As Outlook.MailItem

OLapp = 새 Outlook.Application 설정
janela = OLapp.CreateItem(olMailItem) 설정

Arquivo01 = "마파 AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"


자넬라와 함께
ActiveWorkbook.Save
.디스플레이
.To = Sheets("Base").Range("A2").Value
.CC = Sheets("기본").Range("A5").값
.Subject = "Mapa - Acrilo " & 형식(날짜, "dd.mm.yy")
암살자 = .Body
.HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila 고려사항을 Vendas previstas no S&OP로." & " " & .HTML바디
.첨부파일.Anexo01 추가


최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 밀라,
다음 VBA 코드는 이메일 본문의 글꼴을 Calibri로 변경하는 데 도움이 됩니다. 시도해 보십시오. 고맙습니다.
코드를 실행하기 전에 도구 > 참고 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭한 다음 확인 Microsoft Word 개체 라이브러리 체크 박스에 참조 - VBAProject 아래 표시된 스크린샷과 같은 대화 상자.
[img]I:\공작\周雪明\2022년공작\6월만\文章评论截图\3.png[/img]
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 밀라,
다음 VBA 코드는 이메일 본문의 글꼴을 Calibri로 변경하는 데 도움이 됩니다. 시도해 보십시오. 고맙습니다.
코드를 실행하기 전에 도구 > 참고 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭한 다음 확인 Microsoft Word 개체 라이브러리 체크 박스에 참조 - VBAProject 대화 상자는 아래 표시된 첨부 파일과 같습니다.
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
End Sub
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호