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 excel-macros@googlegroups.com