Results 1 to 8 of 8
  1. #1
    New Lounger
    Join Date
    Mar 2016
    Posts
    3
    Thanks
    0
    Thanked 0 Times in 0 Posts

    How Email Excel Cell values

    What is the simple way to send Excel cell values to an address or several addresses?
    I have used some ridiculous code, but since it is a common sense thing that just about every Excel user would need to do, surely it is a part of 2010 on.
    So how?

  2. #2
    WS Lounge VIP
    Join Date
    Mar 2002
    Location
    Newcazzle, UK
    Posts
    2,828
    Thanks
    136
    Thanked 482 Times in 459 Posts
    Hi Football

    Welcome to the Lounge as a new poster.
    The answer you want is - hang on a minute England are about to kick-off against Holland at Wembley - back after the game

    zeddy

  3. #3
    New Lounger
    Join Date
    Mar 2016
    Posts
    3
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Quote Originally Posted by zeddy View Post
    Hi Football

    Welcome to the Lounge as a new poster.
    The answer you want is - hang on a minute England are about to kick-off against Holland at Wembley - back after the game

    zeddy
    Is the game over yet?

    Thanks.
    Sincerely,
    Political Football

  4. #4
    New Lounger
    Join Date
    Mar 2016
    Posts
    3
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Another question, but if I don't get a proper response, I might break a rule and new post it.

    When I bring up Outlook through a Search (Google, Windows, whatever it is), I get all of my email messages. When I click on the Outlook Icon that came with Windows 10 (upgraded from Windows 8), only the first three original emails are there. Why?

    Why is there so much confusion? In the old days as a little kid, I could pick up a telephone and simply call someone. The telephone company didn't make a lot of money, but what they did sell was simple enough that even a kid could use it.

  5. #5
    WS Lounge VIP access-mdb's Avatar
    Join Date
    Dec 2009
    Location
    Oxfordshire, UK
    Posts
    1,725
    Thanks
    147
    Thanked 156 Times in 149 Posts
    I think it's kids who solve most complex IT problems now, so you're problem is probably easy for a kid. I think Zeddy may still be in mourning, but I'm sure he'll be along soon with a great solution.
    Talk is cheap because supply exceeds demand

  6. #6
    Gold Lounger Maudibe's Avatar
    Join Date
    Aug 2010
    Location
    Pa, USA
    Posts
    2,638
    Thanks
    115
    Thanked 650 Times in 592 Posts
    Football,

    Here is some code I use daily to generate emails and paste selected data from a spreadsheet into the body of the email.

    PLACE IN A STANDARD MODULE
    Code:
    Public Sub JobReports_Outlook()
    '----------------------------------
    'DECLARE AND SET VARIABLES
        Dim OutApp As Object
        Dim OutMail As Object
        Dim JobRPT As Object
        Dim strbody As String
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
    '----------------------------------
    'BUILD BODY OF EMAIL
        strbody = "Patty and Jason," & vbNewLine & vbNewLine & _
                    "Below are recent changes that I have tracked.  Please check to see if they match your records." & _
                    vbNewLine & vbNewLine & _
                    "Thank you," & vbNewLine & _
                    "Maudibe" & vbNewLine & vbNewLine
    '----------------------------------
    'COMPILE EMAIL
        With OutMail
            .To = "PattyDoe@gmail.com; JasonDoe@aol.com"  'CHANGE TO YOUR RECIPIENTS
            .CC = "RobG@gmail.com"
            .BCC = ""
            .Subject = "Active Directory and Systems Access_" & Month(Date) & "_" & Day(Date) & "_" & Year(Date)
            .Body = strbody
            .Display
            SendKeys "^+{END}", True
            SendKeys "{END}", True
    '----------------------------------
    'PASTE INTO OUTLOOK MAIL
            ActiveSheet.Range("A2:C3").Select  'CHANGE TO THE RANGE OF CELLS YOU WANT IN EMAIL
            Set JobRPT = OutApp.ActiveInspector.WordEditor
            JobRPT.Application.Selection.Paste
            'GO TO TOP
        End With
        On Error GoTo 0
    '----------------------------------
    'CLEANUP
        Set OutMail = Nothing
        Set OutApp = Nothing
        Set JobRPT = Nothing
    End Sub
    HTH,
    Maud

  7. The Following User Says Thank You to Maudibe For This Useful Post:

    Jaggi (2016-04-04)

  8. #7
    WS Lounge VIP
    Join Date
    Mar 2002
    Location
    Newcazzle, UK
    Posts
    2,828
    Thanks
    136
    Thanked 482 Times in 459 Posts
    access-mdb was soooooooo righttttttttt! we were beaten good and proper. Good job the cricket turned out better.

    zeddy

  9. #8
    WS Lounge VIP
    Join Date
    Mar 2002
    Location
    Newcazzle, UK
    Posts
    2,828
    Thanks
    136
    Thanked 482 Times in 459 Posts
    Hi Maud

    ..thanks for stepping in with a response.
    Of course, it would help if we new what version of Excel our player has.
    We can use hyperlinks to send emails in Excel, but this is much easier with the newer Excel versions.

    zeddy

Tags for this Thread

Posting Permissions

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