Sending mail macro to multiple addresses

[Raju Radhakrishnan]

Hi,

I need a macro which would send a macro to multiple addresses. The body of the mail will be the same..I want the macro to give me an option to type what should be mentioned in from column, to column...Subject and body will be the same throughout...There are multiple id's in which the mail should be sent so I need an option to select multiple users at a time..if possible let me know then i will give you the subject as well as the body of the mail...

[Raju Radhakrishnan]

No one to help yet

[john55]

there are plenty of examples....
try this one, in column A (email addresses), column B(body), column C (yes or no), cell D1(subject)

Sub Button1_Click()
 Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")

    On Error GoTo cleanup
    For Each cell In Columns("a").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And _
           UCase(Cells(cell.Row, "c").Value) = "YES" Then
            Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = [d1]
                .Body = Cells(cell.Row, "b").Value
                'to add attachment use .Attachments.Add ("C:\test.txt")
                .display  'change to "send" when not in TEST mode
            End With
            On Error GoTo 0
            Set OutMail = Nothing
        End If
    Next cell

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True

End Sub

[Raju Radhakrishnan]

This is good...But it doesnt automatically send it to the adresses...we have to click on send in outlook again and again. So can you please amend it accordingly so that it would send directly? Thanks...

(Note : If heading wouldnt be there then my users wont know where n what we have to fill in)

[Raju Radhakrishnan]

And also I want to change the FROM column. rest all superb

[john55]

Please have a look and you'll see a note near .Display, it means replace it with .Send, it will send the email(s) automatically.

[Raju Radhakrishnan]

Hi,

I have attached the macro file. I need this to be amended appropriately.

1) When i added headings... Subject column is showing as subject in mail.

2) I want the from column to be xxxx (I want to add a name which is confidential)

Rest all fine and thanks for replying

[john55]

try this

'
'
 .Subject = [d2]
'

[Raju Radhakrishnan]

That worked. One thing i want is FROM...Its still showing as Raju Radhakrishnan. I want that to be edited. possible?

[john55]

As far as i know "From" comes from yr settings of outlook!
I am sorry, I can not help you!

Have a nice evening!