$$Excel-Macros$$ based on worksheet attached pdf sent email

2012-01-31 Thread chandra sekaran
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


Re: $$Excel-Macros$$ based on worksheet attached pdf sent email

2012-01-31 Thread Sam Mathai Chacko
The code here is very straight forward and simple to use

http://www.excelfox.com/forum/f2/excel-template-macro-sending-mails-attahment-thru-outlook-142/

Check the attachment provided also

Regards,

Sam Mathai Chacko

On Tue, Jan 31, 2012 at 9:47 PM, chandra sekaran wrote:

> 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
>



-- 
Sam Mathai Chacko

-- 
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