Send an email from Excel

Author: wktd     01 6th, 2009 in xn--9ou.com     edit

  • Hi I'm trying to send an email from Excel. I can generate the email OK using the following code


    Sub Senmail()
    Dim objOutlook As Object
    Dim objOutlookMsg As Object
    Set objOutlook = CreateObject("Outlook.Application")
    Set objOutlookMsg = objOutlook.CreateItem(0)
    With objOutlookMsg
    .To = "email@.com"
    .Subject = "Test Subject"
    .Body = "Test Body of the message"
    .Send
    End With
    Set objOutlookMsg = Nothing
    Set objOutlook = Nothing
    End Sub

    I'd like to able to pick up various cells from my workbook but when I reference the cell using the code "Sheet1.Range("C4")" I get a runtime error 424 Object required. Does anyone know what I'm doing wrong? Thanks


  • According to this http://support.microsoft.com/kb/816644 it should be ActiveSheet.Range("A1:B5").Select

    But I dont know VBA only Google.


  • May be worth a look here?

    http://www.rondebruin.nl/sendmail.htm







    • #If you have any other info about this subject , Please add it free.#
    Your name:
    E-mail:
    Telphone:

    Your comments:


    If you have any other info about Send an email from Excel , Please add it free.

    My rights and duties- employer asks me to provide testimony in its civil lawsuit TU Settlement - Credit Inqury on my credit report