Dear all
Based on my Worksheets i already having pdf file which i attached and
sent respective email address i have email address each sheets K7 How
do i attached particular pdf and sent their email id
Here is code what i have wrong
Sub Send_Email_Current_Workbook()
Dim OutApp As Object
Dim OutMail As Object
Dim wksSheet As Worksheet
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
For Each wksSheet In ThisWorkbook.Worksheets
With OutMail
.To = wksSheet.Range("k7").Value
.Subject = "Salary Slip "
.Body = "Salary Slip for the month of" & ActiveSheet.Range("M4").Value
.Attachments.Add ThisWorkbook.Path & "\" & wksSheet.Name & ".pdf"
ssfile = ThisWorkbook.Path & "\" & wksSheet.Name & ".pdf"
.Send
End With
Next
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Regards
chandru
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to [email protected]
