+ Reply to Thread
Results 1 to 2 of 2

help required in sending email to group mail Ids/ Multiple reciepents.

  1. #1
    Registered User
    Join Date
    11-25-2015
    Location
    Chennai
    MS-Off Ver
    2010
    Posts
    1

    help required in sending email to group mail Ids/ Multiple reciepents.

    HI Experts...

    This is my first post in excel forum,
    I am new to VBA coding.

    I am unable to send to e-mail automatically when my cell contains Group Mail IDs, or multiple mail IDs separated by ";"
    Kindly help me in solving this..


    Thanks In Advance .....
    Regards Vedamoothy .

    Sub Mail_with_outlook2()
    'For mail code examples visit my mail page at:
    'http://www.rondebruin.nl/sendmail.htm
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim strto As String, strcc As String, strbcc As String
    Dim strsub As String, strbody As String

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

    strto = Cells(FormulaCell.Row, "K").Value
    strcc = Cells(FormulaCell.Row, "L").Value
    strbcc = ""
    strsub = "Your subject"
    strbody = "Hi " & Cells(FormulaCell.Row, "A").Value & vbNewLine & vbNewLine & _
    vbNewLine & vbNewLine & "we are assinging this call to you : " & Cells(FormulaCell.Row, "B").Value & _
    vbNewLine & vbNewLine & "Your total of this week is : " & Cells(FormulaCell.Row, "B").Value & _
    vbNewLine & _
    vbNewLine & _
    vbNewLine & vbNewLine & "Thanks and Regards" & vbNewLine & _
    vbNewLine & "U.Vedamoorthy CCSC" & vbNewLine & _
    vbNewLine & "CCSC Chennai"

    With OutMail
    .To = strto
    .CC = strcc
    .BCC = strbcc
    .Subject = strsub
    .Body = strbody
    'You can add a file to the mail like this
    .Attachments.Add ("C:\Users\310119352\Desktop\Copy of 1311RB Table.xlsx")
    .SendUsingAccount = OutApp.Session.Accounts.Item(2)
    .Send ' or use .Send
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
    End Sub


    Thanks in advance ............

  2. #2
    Forum Expert Pepe Le Mokko's Avatar
    Join Date
    05-14-2009
    Location
    Belgium
    MS-Off Ver
    O365 v 2402
    Posts
    13,447

    Re: help required in sending email to group mail Ids/ Multiple reciepents.

    Hi
    please wrap code with tags as per forum rules. Thx

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. automation/macro for sending email to multiple email address
    By saurabhlotankar in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 11-30-2013, 12:13 PM
  2. [SOLVED] Error in sending mail if no email id
    By mukeshbaviskar in forum Excel Programming / VBA / Macros
    Replies: 6
    Last Post: 09-25-2013, 11:30 AM
  3. [SOLVED] Sending mail to multiple users if they exceed the date
    By Ashish_Bhatt in forum Excel Programming / VBA / Macros
    Replies: 6
    Last Post: 09-10-2013, 03:27 PM
  4. Replies: 9
    Last Post: 07-02-2013, 02:41 AM
  5. Sending mail macro to multiple addresses
    By Raju Radhakrishnan in forum Excel Programming / VBA / Macros
    Replies: 8
    Last Post: 08-22-2012, 04:56 PM
  6. Sending an email from Excel to multiple email addresses
    By insanity66 in forum Excel Programming / VBA / Macros
    Replies: 4
    Last Post: 10-14-2009, 02:01 PM
  7. [SOLVED] Sending a group email
    By Newbee in forum Excel Formulas & Functions
    Replies: 7
    Last Post: 04-01-2005, 11:06 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1