How to send email in series from an specific account in outlook?

[Kentuky]

Hello

I have this code to send an email to birthday parties through outlook, where I have two email accounts, how can I specify which one is sending?

The birthdays are obtained from a database in access 2007 through the query "Aniversariantes", which is composed of the fields: "name", "email" and "send".

I apologize for my English.

Thank you so mutch

Public Subsendserialemail()

Dim db As DAO.Database
Dim rs As DAO.Recordset

Dimemailto As String
Dim emailsubject As String
Dim emailtext As String

Dim outapp Asoutlook.Application
Dim outmail Asoutlook.MailItem
Dim outstarted As Boolean

On Error Resume Next
Set outapp = GetObject(,"outlook.application")
On Error GoTo 0
If outapp Is Nothing Then
Set outapp = CreateObject("outlook.application")
outstarted = True
End If

Set db = CurrentDb
Set rs =db.OpenRecordset("SELECT nome, email, enviar " & "FROMAniversariantes")

Do Until rs.EOF

emailto= rs.Fields("nome").Value & " <" &rs.Fields("email").Value & ">"

emailsubject= "Feliz Aniversário"

emailtext= Trim("Olá " & rs.Fields("nome").Value) &"!" & vbCrLf

Ifrs.Fields("enviar").Value Then
emailtext = emailtext & "Muitos parabéns!" & vbCrLf
End If

emailtext = emailtext & "A Direção do Clube"

Setoutmail = outapp.CreateItem(olMailItem)
outmail.To = emailto
outmail.Subject = emailsubject
outmail.Body = emailtext
outmail.Send

rs.MoveNext
Loop

rs.Close
Set rs = Nothing
Set db = Nothing

If outstarted Then
outapp.Quit
End If

Set outmail = Nothing
Set outapp = Nothing

End Sub

[Kudos]

Not much experience with this, but try adding in:

outmail.SentOnBehalfOfName = "your@email.com"

...right after:

Set outmail = outapp.CreateItem(olMailItem)

OR it might be outmail.SendUsingAccount which is a little tricker to grab, here's a link:

https://www.slipstick.com/developer/...cific-account/

[Kentuky]

Hello Kudos,

tested and approved.

Thank you very much.