By RC로닌2020 14년 2023월 XNUMX일 화요일
에 게시 됨 뛰어나다
답글 0
좋아 0
조회수 2K
투표 0
저는 VBA를 처음 사용합니다. K셀에 "예"가 입력되었을 때 이메일을 보내려고 합니다.... 여기까지 왔지만 다음 단계로 어려움을 겪고 있습니다.

이메일 본문을 아래와 같이 읽고 싶습니다.

안녕하세요, 아래 프로젝트 제안서 요약입니다.

프로젝트 이름: *셀 A의 정보*
설명: *셀 B*
솔루션: *셀 C*
혜택: *셀 D*
비용: *셀 F*
시간: 셀 *G*
위험: 세포 *H*
고객: 셀 I
브랜드: 셀 J

친절한 감사합니다

*셀 L*


아래는 지금까지 사용한 코드입니다.


개인 하위 Worksheet_Change (범위로 ByVal 대상)
Target.Cells.Count > 1이면 Sub 종료
If (Not Intersect(Target, Range("K:K")) Is Nothing) And (Target.Value = "예") Then
Mail_small_Text_Outlook에 전화
END IF
최종 하위
하위 Mail_small_Text_Outlook()
개체로 Dim xOutApp
Dim xOutMail을 개체로
Dim xMailBody를 문자열로
xOutApp 설정 = CreateObject("Outlook.Application")
xOutMail = xOutApp.CreateItem(0) 설정
xMailBody = "안녕하세요" & vbNewLine & vbNewLine & _
"이것은 라인 1입니다" & vbNewLine & _
"이것이 2호선입니다"
오류에 대한 다음 재개
xOutMail과 함께
.To = "이메일 주소"
.CC = ""
.BCC = ""
.Subject = "셀 값 테스트로 보내기"
.Body = xMailBody
.Display '또는 .Send 사용

오류 발생시 0
xOutMail 설정 = 없음
xOutApp = 없음 설정
최종 하위

저를 도와주실 수 있는 분들께 미리 감사드립니다.
전체 게시물보기