Solved

How to add contact name to VBA code to automate emails in outlook using a Template

Posted on 2016-09-10
11
58 Views
Last Modified: 2016-09-11
How to add contact name from the excel column A to the template as Hi Adam to this existing code?

Sub SendEmail()

    Dim rng As Range
    Dim cell As Range
    Dim myOlApp As Object
    Dim MyItem As Object
   
     'Specifies number of rows to search for email addresses
    Set rng = Range("A1:A5")
    Set myOlApp = CreateObject("Outlook.Application")
     
    For Each cell In rng.Cells
        Set MyItem = myOlApp.CreateItemFromTemplate("C:\Users\.oft")
        With MyItem
            .To = cell.Value
            .Subject = "Help"
            .Send
        End With
        Set MyItem = Nothing
    Next
   
    myOlApp.Quit
    Set myOlApp = Nothing

End Sub
0
Comment
Question by:Natasha Adams
  • 5
  • 5
11 Comments
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 41793131
Try something like

Myitem.body = "Hi " & cell.value & vbcrlf & myitem.body
0
 
LVL 28

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41793173
You may use something like this....
Sub SendEmail()

    Dim rng As Range
    Dim cell As Range
    Dim myOlApp As Object
    Dim MyItem As Object
    Dim strBody As String
     'Specifies number of rows to search for email addresses
    Set rng = Range("A1:A5")
    Set myOlApp = CreateObject("Outlook.Application")
     
    For Each cell In rng.Cells
        Set MyItem = myOlApp.CreateItemFromTemplate("C:\Users\.oft")
        strBody = "Hi " & Left(cell.Value, InStr(cell.Value, "@") - 1) & ","
        With MyItem
            .To = cell.Value
            .Subject = "Help"
            .Body = strBody & vbNewLine & .Body
            .Display
            '.Send
        End With
        Set MyItem = Nothing
    Next
   
    myOlApp.Quit
    Set myOlApp = Nothing

End Sub

Open in new window

0
 

Author Comment

by:Natasha Adams
ID: 41793418
Thank you Subodh and Syed for your contributions.  it does say Hi and the email address.  I want it to say Hi John where the name is listed in Column A? How could I change it to reflect Name in Column A?

Thanks
0
 
LVL 28

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41793423
As per your code .To = cell.Value, the email addresses are supposed to be in col. A.

Would you please let us know, in which columns, Names and their email addresses are listed?
0
 

Author Comment

by:Natasha Adams
ID: 41793439
Name is on Column A and email is on Column B.  Thanks for the quick reply
0
Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

 
LVL 28

Accepted Solution

by:
Subodh Tiwari (Neeraj) earned 500 total points
ID: 41793444
In that case this should work...
Sub SendEmail()

    Dim rng As Range
    Dim cell As Range
    Dim myOlApp As Object
    Dim MyItem As Object
    Dim strBody As String
     'Specifies number of rows to search for email addresses
    Set rng = Range("A1:A5")
    Set myOlApp = CreateObject("Outlook.Application")
     
    For Each cell In rng.Cells
        Set MyItem = myOlApp.CreateItemFromTemplate("C:\Users\.oft")
        strBody = "Hi " & cell.Value & ","
        With MyItem
            .To = cell.Offset(0, 1).Value
            .Subject = "Help"
            .Body = strBody & vbNewLine & .Body
            .Display
            '.Send
        End With
        Set MyItem = Nothing
    Next
   
    myOlApp.Quit
    Set myOlApp = Nothing

End Sub

Open in new window

0
 

Author Comment

by:Natasha Adams
ID: 41793502
Thank you so much Subodh.  You are so smart!  you saved my life.  Thank you.
0
 

Author Comment

by:Natasha Adams
ID: 41793503
I don't know what the difference in Assisted and Best Solution?
0
 
LVL 28

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41793508
You're welcome Natasha! Glad to help.
Best solution is one which completely resolved your question and the assisted solution is one which also addressed your question correctly and partly helped you to resolve the issue.
0
 

Author Closing Comment

by:Natasha Adams
ID: 41793525
Subodh was great responded very quickly and helped me resolve my issues.  OMG he is smart and awesome!
0
 
LVL 28

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41793710
Thanks for the feedback and compliment Natasha!
0

Featured Post

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
How to make an ADE file by code? 11 42
TT ADD Formula 2 10
Name Rotation 11 30
Set Listbox Selected Items by Bound Column 6 13
Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now