Creating multiple emails with different details

[godzilla185]

HI, I have seen threads on creating multiple different emails based on different data in my excel, but I am looking for a slightly diff (and hopefully easier) alternative.

I have the following code which opens up an email and prepopulates it for me without referencing any excel data or cells:

Sub allemailsin1()
'open outlook ready to send email
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
todays_date = Date$

With OutMail
.Display
End With
Signature = OutMail.body

With OutMail
.To = "person1"
.CC = "myself@gmail.com"
.BCC = ""
.Subject = "test 1 " & " " & Date$
.body = " HI," & vbNewLine & vbNewLine & "Hope you had a great day" & vbNewLine & vbNewLine & Signature
.Display

End With
End Sub

I just want to somehow loop this so that it can do what it does but x3/4 times and open NEW emails and populate them with To = "person2"... "person3" ... The reason is I have certain emails I have to repeat every single day and this would prepare the templates for me in the easiest way without having to worry about excel data or sheets.

Is anyone able to help me with this? I appreciate your time.

 

[DanteAmor]

How about:

Sub allemailsin1()
  Dim OutApp As Object, OutMail As Object
  Dim i As Long
  
  For i = 1 To 4
    'open outlook ready to send email
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
      .Display
      .To = "person" & i
      .CC = "myself@gmail.com"
      .BCC = ""
      .Subject = "test " & i & " " & " " & Date$
      .body = " HI," & vbNewLine & vbNewLine & "Hope you had a great day" & vbNewLine & vbNewLine & .body
      .Display
    End With
  Next
End Sub

 

[godzilla185]

How about:

Sub allemailsin1()
  Dim OutApp As Object, OutMail As Object
  Dim i As Long
 
  For i = 1 To 4
    'open outlook ready to send email
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
   
    With OutMail
      .Display
      .To = "person" & i
      .CC = "myself@gmail.com"
      .BCC = ""
      .Subject = "test " & i & " " & " " & Date$
      .body = " HI," & vbNewLine & vbNewLine & "Hope you had a great day" & vbNewLine & vbNewLine & .body
      .Display
    End With
  Next
End Sub

Thank you.

Would I be able to change the To/CC/Subject/Body of those 4 diff emails or would they all be the exact same? Please let me know how.

I appreciate your time.

 

[DanteAmor]

Would I be able to change the To/CC/Subject/Body of those 4 diff emails or would they all be the exact same? Please let me know how.

What do you want to put in each case. For that they use references to cells, to take data from different cells.

 

[godzilla185]

What do you want to put in each case. For that they use references to cells, to take data from different cells.

Ahh ok, yea I wanted to have fixed data that didn't depend on references to cells, if possible.

For example,

1st email is out
To: Person1...
Subject:"text1"

then

2nd email is
To: Person2
Subject; "text2"

then
3rd email is
To:Person3
Subject: "text3"

So the data would be static in the code, the emails would be diff but wouldn't reference cells.

Not sure if that is possible. I was thinking maybe some small loop that copied the 1st formula but used diff static inputs or some kind of IF-then that makes the formula repeat 4 times with diff To/CC/Subject...

Let me know if possible

 

[DanteAmor]

Try this:

Sub allemailsin1()
  Dim OutApp As Object, OutMail As Object
  Dim i As Long
  
  For i = 1 To 4
    'open outlook ready to send email
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
      .Display
      .To = "person" & i
      .CC = "cc" & i
      .BCC = "bcc" & i
      .Subject = "text" & i
      .body = "body" & i & vbNewLine & vbNewLine & .body
      .Display
    End With
  Next
End Sub