이름이 변경된 파일 첨부하기

단어로 버튼을 누르면 자동으로 이메일을 보내는 VBA 쿼리를 작성하고 있습니다. 특정 파일을 첨부하고 싶습니다. 그러나 문제는 첨부해야하는 파일에 변경 사항 (예 : report + weeknr, 날짜 부분 변경)이있는 이름입니다.이름이 변경된 파일 첨부하기

그러나 나는 주중을 메일 제목에 포함시키기 때문에 "Subject : report + weeknr") 나는 report + weeknr의 결과 인 변수를 작성하여 문서 첨부를 자동화 할 수 있지만. 그러나 그것은 작동하지 않습니다. 아무도 내가이 일을 어떻게 얻을 수 있을지 생각하지 않아? - VAR1를 사용하지 않는 - 테스트 목적을 위해 당신이 문자열로 VAR2에 경로 + 파일 이름을 넣어 경우

Sub Sendmessage() 


Dim OutApp As Object 
Dim OutMail As Object 
Dim var1 As String 
Dim sentto As Long 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 


var1 = InputBox("Insert week") 
'Line below is where it goes wrong. Var2 leads to C:\Documents and Settings\aa471714\Desktop\SENS referentenrapportage - week " & var1 & ".ppt 

var2 = "C:\Documents and Settings\aa471714\Desktop\SENS referentenrapportage - week " & var1 & ".ppt" 

    With OutMail 
    .To = "[email protected]; [email protected]" 
    .CC = "" 
    .BCC = "" 
    .Subject = "Report_" & var1 
    .Body = "Text" 
    .Attachments.Add (var2) 
    .Display 
    End With 

    End Sub

출처

2014-02-10 user181796

작동합니까 : 아래 코드를 참조하십시오? – Max

실행중인 문제가 정확히 무엇입니까? 오류 메시지가 있거나 첨부 파일이 없습니까? – Max

@Max, 예. 그러나 나는 이미 그것을 풀었다. var1을 문자열 대신 long으로 정의해야했습니다. 이제 작동합니다. 어쨌든 여러분의 의견을 주셔서 감사합니다! – user181796

Sub Sendmessage() 


Dim OutApp As Object 
Dim OutMail As Object 
Dim var1 As String 
Dim sentto As Long 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 


var1 = InputBox("Insert week") 
'Line below is where it goes wrong. Var2 leads to C:\Documents and Settings\aa471714\Desktop\SENS referentenrapportage - week " & var1 & ".ppt 

var2 = "C:\Documents and Settings\aa471714\Desktop\SENS referentenrapportage - week " & var1 & ".ppt" 

With OutMail 
.To = "[email protected]; [email protected]" 
.CC = "" 
.BCC = "" 
.Subject = "Report_" & var1 
.Body = "Text" 
.Attachments.Add (var2) 
.Display 
End With 

End Sub

출처

2014-02-11 12:07:28 user181796

이름이 변경된 파일 첨부하기

답변

관련 문제