Macro to send mail automatically

[shyam sundar]

Hi Friends

I want to a code which automatically sends a mail whenever the module is called. In the body of the mail i want to inculde a table of details from a excel spreadsheet.

For eg Datas from A1:H1 needs to be included in the mail

Pls help me with a code

[ragavan.sridar1]

hi shyam,

try this!

Please Login or Register  to view this content.

[shyam sundar]

ragavan

Thanks a lot for the code. I have tried but the entire excel sheet is reflecting in the mail body

i want the details from A1 - H1 and the end A8 - H8

[ragavan.sridar1]

Hi Shyam,

It will reflect only the entire sheet but it will only send the selection, in this case it will only send the Range("A1:H1")

just try to send it to your mail id and see the outcome...

[shyam sundar]

Thanks a lot i will try it can you pls advice how to include the data till A8 - H8

sorry to ask at last

[ragavan.sridar1]

try to change the data range as

Please Login or Register  to view this content.

[shyam sundar]

Thanks a lot for ur valuable time i will check and let u know if am having any doubts

[shyam sundar]

Hi Ragavan

currently am using the below code in this am included the atachments and all . Can u pls advice how to include the code u shared in this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("A1"), Target) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call YourMacroName
End If
End If
End Sub


Sub Mail_small_Text_Outlook()
'Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

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

strbody = "Hi there" & vbNewLine & vbNewLine & _
"Cell A1 is changed" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

On Error Resume Next
With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = strbody
'You can add a file like this
'.Attachments.Add ("C:\test.txt")
.Display 'or use .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

[shyam sundar]

Ragavan

The above code also shared from ur end only in my last post

[ragavan.sridar1]

Hi shyam,

the code which i gave is used to send only the range which is selected in our case it will only send the range("a1:h8") you cannot add any file/Signature in it.

if you want to attach the file as well as send the range, then you can use this code..(which i browsed and got)

Please Login or Register  to view this content.

Let me know if this helps...

[ragavan.sridar1]

Hi shyam,

the code which i gave is used to send only the range which is selected in our case it will only send the range("a1:h8") you cannot add any file/Signature in it.

if you want to attach the file as well as send the range, then you can use this code..(which i browsed and got)

Please Login or Register  to view this content.

Let me know if this helps...

[shyam sundar]

Hi Ragavan

It working but the body of the mail is reflecting as blank i have from ur previous code to include the same format but its not working

strbody = "Hi there" & vbNewLine & vbNewLine & _
"Cell A1 is changed" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

[ragavan.sridar1]

Add this..

Please Login or Register  to view this content.

and change the code as

Please Login or Register  to view this content.