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

VBA
작성자
써머데이즈
작성일
2020-10-13 11:12
조회
62
안녕하세요!!

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

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

코드 한번 봐주시면 감사하겠습니다ㅠㅠ
써머데이즈
회원등급 : 새싹등급
포인트 : 110 EP
전체 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

         


    전체 1,351
    번호 카테고리제목작성자작성일추천조회
    1346 함수/공식
    New vlookup 여러개값 가져오기 공식자료의 활용 첨부파일
    승재빠 | 01:05 | 추천 0 | 조회 13
    승재빠01:05013
    1345 차트/그래프
    New 유동적으로 움직이는 그래프 구현 질문드립니다. 첨부파일 (1)
    cress | 2020.10.26 | 추천 0 | 조회 15
    cress2020.10.26015
    1344 차트/그래프
    New 간트차트에서 날짜를 일반서식으로 바꿔도 표기형식이 그대로 보이는 이유는 뭘까요 (1)
    still | 2020.10.26 | 추천 0 | 조회 13
    still2020.10.26013
    1343 함수/공식
    New 셀값안에 있는 다른 경로의 워크시트명을 자동으로 바꿀 수 있나요? (1)
    yachtclub | 2020.10.26 | 추천 0 | 조회 21
    yachtclub2020.10.26021
    1342 VBA
    New VBA 웹크롤링 다운로드 팝업창 열기/저장/취소 선택 방법 (1)
    묵비권 | 2020.10.26 | 추천 0 | 조회 18
    묵비권2020.10.26018
    1341 함수/공식
    New B열의 각 셀이 한개라도 A열과 각셀과 내용이 일치하지 않는 게 있으면 B열 전체색깔을 빨갛게 표시하는 함수가 있을까요? (3)
    마운틴 | 2020.10.26 | 추천 0 | 조회 20
    마운틴2020.10.26020
    1340 VBA
    New vba 특정 셀의 값에 따라 메시지 띄우기 (1)
    엑셀늅늅이 | 2020.10.25 | 추천 0 | 조회 27
    엑셀늅늅이2020.10.25027
    1339 함수/공식
    New 세트 상품을 단품으로 수량 기입해서 합산해야하는데, 문제가 있어요. (2)
    oster | 2020.10.25 | 추천 0 | 조회 27
    oster2020.10.25027
    1338 함수/공식
    New 문장변경 (1)
    작은소녀 | 2020.10.24 | 추천 0 | 조회 33
    작은소녀2020.10.24033
    1337 함수/공식
    New 휴가 현황을 확인할 수 있도록 할 수 있을까요? 첨부파일 (3)
    봉보로봉봉 | 2020.10.24 | 추천 0 | 조회 40
    봉보로봉봉2020.10.24040
    1336 함수/공식
    New 만년 달력 사용중 첨부파일 (1)
    시딘씨 | 2020.10.24 | 추천 0 | 조회 38
    시딘씨2020.10.24038
    1335 VBA
    엑셀 결과 값 매크로 버튼 눌렀을 때만 바뀌게 하는법 있을까요 (1)
    nm12**** | 2020.10.23 | 추천 0 | 조회 43
    nm12****2020.10.23043
    1334 함수/공식
    조건에 맞는 데이터 내림차순으로 정렬 함수 문의 첨부파일 (2)
    혁궁 | 2020.10.23 | 추천 0 | 조회 28
    혁궁2020.10.23028
    1333 대시보드
    대시보드 만들기 3강 (SUMPRODUCT 값 Name 오류) 첨부파일 (2)
    료마 | 2020.10.23 | 추천 0 | 조회 35
    료마2020.10.23035
    1332 함수/공식
    데이터유효성 검사 중 '공백무시'는 어떤 의미인가요? (1)
    성현생각 | 2020.10.23 | 추천 0 | 조회 32
    성현생각2020.10.23032
    1331 VBA
    한글(HWP)로 된 문서를 엑셀에 붙여넣는 작업을 매크로를 이용해 자동화하기 (3)
    화가 | 2020.10.23 | 추천 0 | 조회 37
    화가2020.10.23037
    1330 VBA
    각각 다른 파일을 개별로 메일을 보내고 싶습니다. (1)
    DAN | 2020.10.23 | 추천 0 | 조회 22
    DAN2020.10.23022
    1329 차트/그래프
    거품차트+원형차트 복합 (Compound bubble and pie chart) (4)
    아카시아 | 2020.10.23 | 추천 0 | 조회 42
    아카시아2020.10.23042
    1328 함수/공식
    2가지 조건을 만족하는 함수를 작성해야합니다. (4)
    THEEUGENE | 2020.10.22 | 추천 1 | 조회 49
    THEEUGENE2020.10.22149
    1327 차트/그래프
    간트 차트 내용 추가 관련 문의 드립니다. (1)
    나짱보이 | 2020.10.22 | 추천 0 | 조회 24
    나짱보이2020.10.22024
    1326 VBA
    VBA로 특정 셀 잠그기 / 잠금 해제하기 (1)
    엑셀늅늅이 | 2020.10.22 | 추천 0 | 조회 32
    엑셀늅늅이2020.10.22032
    1325 피벗테이블
    피벗테이블에서 사용날짜에 있는 값들이 이전 달에 들어가서 합이 되어 버리는 오류가 발생합니다. 첨부파일 (2)
    김광수 | 2020.10.22 | 추천 0 | 조회 36
    김광수2020.10.22036
    1324 차트/그래프
    [질문] 월 데이터를 그래프로 그릴 때 공휴일, 토, 일은 그래프에서 삭제하고 싶습니다. (4)
    그때의너 | 2020.10.22 | 추천 0 | 조회 40
    그때의너2020.10.22040
    1323 차트/그래프
    연결하여 붙여넣기(그림) 선택옵션에서 안보여서용 ㅠㅠ도와주세용 (2)
    윤사슴 | 2020.10.21 | 추천 0 | 조회 42
    윤사슴2020.10.21042
    1322 기능/도구
    조건부서식 아이콘표시 문의 첨부파일 (10)
    글래스 | 2020.10.21 | 추천 0 | 조회 56
    글래스2020.10.21056
    1321 차트/그래프
    선생님.. 첨부파일 (3)
    rpaq**** | 2020.10.21 | 추천 0 | 조회 55
    rpaq****2020.10.21055
    1320 함수/공식
    다운받은게 추가기능에서 설치가 된거 같은데 작동을 안하네요. 첨부파일 (1)
    Fund 꿈전사 | 2020.10.21 | 추천 0 | 조회 39
    Fund 꿈전사2020.10.21039
    1319 문서서식
    원하는 프르그렘 엑셀 유료 제작도 해주시나요? (1)
    Fund 꿈전사 | 2020.10.21 | 추천 0 | 조회 72
    Fund 꿈전사2020.10.21072
    1318 VBA
    엑셀에서 아웃룩일정 입력하는 방법에 관한 질문 (2)
    naver_5f8b682a12bb7 | 2020.10.21 | 추천 0 | 조회 34
    naver_5f8b682a12bb72020.10.21034
    1317 문서서식
    인쇄물 좌측하단 사용자정보 삭제방법 문의 첨부파일 (2)
    naver_5f8ee15a8602b | 2020.10.20 | 추천 0 | 조회 34
    naver_5f8ee15a8602b2020.10.20034