공유폴더 상의 첨부파일을 아웃룩으로 자동화

VBA
작성자
써머데이즈
작성일
2020-10-13 11:12
조회
283

안녕하세요!!

공유폴더에 pdf파일을 업로드 하면 자동으로 아웃룩으로 연동시키려고 합니다.

코드를 만들어서 해보려고 하는데 구문오류로 컴파일 오류가 뜹니다..ㅠㅠ

코드 한번 봐주시면 감사하겠습니다ㅠㅠ

회원등급 : 새싹등급
포인트 : 147 EP
총질문 : 7 개 (마감율 : 14%)
채택답변 : 0 개
전체 3

  • 2020-10-13 16:12

    안녕하세요.

    코드 관련해서 질문을 주실 때에는 보다 더 상세히 내용을 적어주셔야 정확한 답변을 드릴 수 있습니다^^

    1. 공유폴더에 PDF파일이 업로드 되었는지 여부를 어떻게 확인을 하실건지(매 초마다 공유폴더를 조회해서 새로운 PDF파일이 업로드 되었는지 확인하는 방식으로 구현? 또는 다른 방법?)

    2. 어느 부분에서 어떤 오류가 발생하는지?

    더 상세한 내용을 적어주셔야 정확한 답변을 드릴 수 있을 듯 합니다.^^

    감사합니다.


    • 2020-10-13 17:44

      답변 정말 감사합니다!!!

       

      1. 드래그해서 공유폴더상에 pdf 파일을 업로드 하면 자동으로 아웃룩으로 첨부파일이 생성되는 것이 목표였는데, 사실상 어려워서 엑셀에 파일이름, 위치, 메일내용 등을 적어둔 후 공유파일 상의 pdf를 복사해서 아웃룩으로 첨부하는 vba를 실행하게 만들었습니다!!

       

      2. 파일이름과 파일 주소 부분에서 오류가 나타납니다!!ㅠㅠ제가 첨부파일 상에 위 설명 드린대로 적어두었는데 어디가 잘못된건지 잘 모르겠습니다...도움 부탁드립니다 ㅠㅠ


      • 2020-10-13 21:34

        안녕하세요.

        1. 넵 잘 이해했습니다. ^^ 구현하시는데 문제 없을듯 합니다.

        2. 코드 관련 질문을 주실 때에는, 작성하신 명령문의 *어느 부분에서 *어떤 에러코드로 오류가 발생하는지 적어주셔야 답변을 드리기에 더욱 수월합니다.

        함수를 사용하는 것과는 달리 워낙 변수가 많기 때문에, 전체 명령문을 올려주시더라도 정확한 답변을 드리기에 어려울 때가 많습니다.^^;

        작성하신 명령문에는 큰 오류가 없어 보이는데, 파일 이름부분에서 오류가 발생한다면 폴더명과 파일명 사이에 "\" 기호가 누락되지 않았는지, 또는 파일명뒤에 확장자(*.pdf)가 누락되지 않았는지 등을 키보드 F8키로 디버깅하면서 단계별로 확인해보시면 도움이 될 듯 합니다.^^

        Sub Copy_Icebox()

        Dim Current_Path As String
        Dim File_Name As String
        Dim Star As String
        Dim Desti As String

        Current_Path = ThisWorkbook.Path
        File_Name = Cells(3, 4).Value & ".pdf"
        If Len(Cells(3, 4).Value) <> 20 Then
        GoTo ErrorMessage
        End If

        On Error GoTo ErrorMessage

        Star = ThisWorkbook.Path & "\" & File_Name
        Desti = Cells(9, 4).Value & "\" & File_Name

        FileCopy Star, Desti

        MsgBox "파일 복사 완료" & Chr(10) & Desti

        If MsgBox("메일을 전달하겠습니까?", vbQuestion + vbYesNo, "자동 발송") = vbYes Then

        Dim olApp As Outlook.Application
        Dim olMail As MailItem
        Dim sAttFile As String

        Set olApp = New Outlook.Application
        Set olMail = olApp.CreateItem(olMailItem)

        With olMail
        .To = Cells(5, 4).Value
        .Subject = Cells(6, 4).Value

        .Attachments.Add Star
        .Body = Cells(7, 4).Value
        .Send

        End With
        Set olMail = Nothing
        Set olApp = Nothing

        MsgBox ("메일 발송 완료")

        Exit Sub

        ErrorMessage:
        MsgBox ("파일 이름 오류 - 다시 시도하세요")
        End If
        End Sub

         


전체 4,249
번호 카테고리 제목 작성자 작성일 추천 조회
4233 함수/공식
New x,y,z로 이루어진 방정식 두 개를 '해 찾기' 기능으로 풀 수 있을까요? (1)
고대하라 | 12:08 | 추천 0 | 조회 19
고대하라 12:08 0 19
4232 기능/도구
New 셀선택시 설명 팝업 (2)
HYODONG | 11:49 | 추천 0 | 조회 16
HYODONG 11:49 0 16
4231 피벗테이블
New 정규화에 대한 문의 첨부파일 (1)
광개토태왕 | 10:05 | 추천 0 | 조회 18
광개토태왕 10:05 0 18
4230 차트/그래프
New 원형 차트에 슬라이서 연결 시 표시 방법 문의 드립니다.
이찬우 | 09:48 | 추천 0 | 조회 15
이찬우 09:48 0 15
4229 함수/공식
New 대량의 데이터를 가지고 있는 다른 시트에서 중복값찾기 (4) 답변완료
라운 | 00:07 | 추천 0 | 조회 40
라운 00:07 0 40
4228 VBA
New 시간이 겹치거나 겹친 시간에 동일 이름이 중복될 경우 찾을려면 어떻게 하면 될까요? (3)
셀라푸우 | 2021.10.20 | 추천 0 | 조회 30
셀라푸우 2021.10.20 0 30
4227 VBA
New 데이터 범위설정 매크로 수식 (2)
젬마 | 2021.10.20 | 추천 0 | 조회 49
젬마 2021.10.20 0 49
4226 피벗테이블
New 피벗테이블 구성 (1)
광개토태왕 | 2021.10.20 | 추천 0 | 조회 38
광개토태왕 2021.10.20 0 38
4225 VBA
New (초보..)vba 웹크롤링(selenium 사용) 문자를 읽어오지않아 문의드립니다!! (4)
윌터너 | 2021.10.20 | 추천 0 | 조회 29
윌터너 2021.10.20 0 29
4224 함수/공식
New 함수 자동입력?
흑형 | 2021.10.20 | 추천 0 | 조회 51
흑형 2021.10.20 0 51
4223 기능/도구
New 구글 스프레드시트 이미지 인쇄 문제 (1)
민 쌤 | 2021.10.20 | 추천 0 | 조회 30
민 쌤 2021.10.20 0 30
4222 파워쿼리/피벗
New 파워쿼리 입문입니다. 시트 합치는 방법 질문드립니다. 첨부파일 (2)
월마리아 | 2021.10.19 | 추천 0 | 조회 51
월마리아 2021.10.19 0 51
4221 함수/공식
New 공부용 일정표 관련해서 자동 생성 질문드립니다.
1234느린열차 | 2021.10.19 | 추천 0 | 조회 31
1234느린열차 2021.10.19 0 31
4220 함수/공식
New 변화되는 값 추적하기 첨부파일 (1)
아자사랑 | 2021.10.19 | 추천 0 | 조회 47
아자사랑 2021.10.19 0 47
4219 함수/공식
New 셀에 포함된 특정단어 추출 함수 첨부파일 (5) 답변완료
마운틴 | 2021.10.19 | 추천 0 | 조회 68
마운틴 2021.10.19 0 68
4218 피벗테이블
New 피벗테이블에서 열 (레이블) 상위 10% 필터링 방법 문의 첨부파일 (3)
김성현19 | 2021.10.19 | 추천 0 | 조회 35
김성현19 2021.10.19 0 35
4217 함수/공식
New 다중조건으로 매출 순위 구하기 첨부파일 (8) 답변완료
newstar | 2021.10.19 | 추천 0 | 조회 56
newstar 2021.10.19 0 56
4216 파워쿼리/피벗
New Expression.Error: Table 형식의 값을 Binary 형식으로 변환할 수 없습니다 첨부파일 (3)
슝슝 | 2021.10.19 | 추천 0 | 조회 30
슝슝 2021.10.19 0 30
4215 함수/공식
New 행에서 시간만 나타내기 첨부파일 (6) 답변완료
드래군 | 2021.10.19 | 추천 0 | 조회 53
드래군 2021.10.19 0 53
4214 기능/도구
New QR 코드 만들기 첨부파일 (1)
맑고 향기롭게 | 2021.10.19 | 추천 0 | 조회 33
맑고 향기롭게 2021.10.19 0 33
4213 함수/공식
New --ISNUMBER의 의미 (2)
마운틴 | 2021.10.19 | 추천 0 | 조회 41
마운틴 2021.10.19 0 41
4212 함수/공식
New 엑셀 수식 가로로 하는법 첨부파일 (4)
KT | 2021.10.19 | 추천 0 | 조회 62
KT 2021.10.19 0 62
4211 함수/공식
New 유효성검사를 통해 다른시트의 데이터 중 매출액이 있는 데이터만 불러오는 방법 첨부파일 (6)
emp**** | 2021.10.19 | 추천 0 | 조회 42
emp**** 2021.10.19 0 42
4210 VBA
New 이미지넣는 매크로, 다시 열어보니 사진이 안떠요 (4) 답변완료
흑형 | 2021.10.19 | 추천 0 | 조회 42
흑형 2021.10.19 0 42
4209 함수/공식
New 조건에 맞는 값 추출될 수 있도록 수식 질문드립니다 첨부파일 (1) 답변완료
젬마 | 2021.10.19 | 추천 0 | 조회 48
젬마 2021.10.19 0 48
4208 기능/도구
New 하나 이상의 수식이 허용된 8,192자 제한보다 깁니다.
City0311 | 2021.10.19 | 추천 0 | 조회 21
City0311 2021.10.19 0 21
4207 VBA
New 재질문 : ParseJSON 함수 첨부파일 (3) 답변완료
하늘의 꿈 | 2021.10.19 | 추천 0 | 조회 29
하늘의 꿈 2021.10.19 0 29
4206 VBA
New 다른시트명 불러오기 vba (3)
야야야야구르트 | 2021.10.18 | 추천 0 | 조회 54
야야야야구르트 2021.10.18 0 54
4205 VBA
New 유저폼에서 리스트 검색 후, 선택목록 내용 보기 첨부파일 (7)
007 | 2021.10.18 | 추천 0 | 조회 52
007 2021.10.18 0 52
4204 함수/공식
New 변하는 변수값 고정시키기 첨부파일 (3)
아자사랑 | 2021.10.18 | 추천 0 | 조회 35
아자사랑 2021.10.18 0 35