Email automation : should send email based on the email id's in the column

[Abdulassees]

Hello Team,

Looking for your support to solve an automation;

Please find attached the excel sheet.

1. Need to save the draft copy to outlook
2. Pick up the email Id's from home tab (Column A = email id's will be different for each row)
3. Copy the format from email tab and save in outlook draft.
4. In the email tab some text need to be taken from Home Tab. I have given the details in braces.

Thank you for your kind support,
Azees

 

[rrocker1405]

Hello Team,

Looking for your support to solve an automation;

Please find attached the excel sheet.

1. Need to save the draft copy to outlook
2. Pick up the email Id's from home tab (Column A = email id's will be different for each row)
3. Copy the format from email tab and save in outlook draft.
4. In the email tab some text need to be taken from Home Tab. I have given the details in braces.

Thank you for your kind support,
Azees

Hi Azees,

I would use something like this and have my email in Row 2 or modify as per convenience to send emails from excel workbook.

Hope this helps.

Kind regards,
A!

Sub Mail_Single_SendRequest()


'Working in 2000-2010
  Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim FileExtStr As String
    Dim OutApp As Object
    Dim OutMail As Object
    Dim r As Integer, x As Double
 
    For r = 2 To 2 'data in row 2 for inserting name as part of signature
  Dim strbody As String
    With Application
 
    .ScreenUpdating = False
    .EnableEvents = False
    End With

    Set wb1 = ActiveWorkbook

    If Val(Application.Version) >= 12 Then
        If wb1.FileFormat = 51 And wb1.HasVBProject = True Then
            MsgBox "There is VBA code in this xlsx file, there will" & vbNewLine & _
                  "be no VBA code in the file you send. Save the" & vbNewLine & _
                  "file first as xlsm and then try the macro again.", vbInformation
            Exit Sub
        End If
    End If