_INetMail in Inet.au3 does not support CC and BCC

[Caillte]

I stumbled on this function in an effort to streamline sending a list of emails monthly. 

I noticed that this function does not support CC and BCC. Is this on purpose, or just an oversight?

I believe I've found a workaround that remedies the issue, but am not sure where to post that code to get it added in future builds. 

[Jos]

I won't use that UDF anymore when you need anything other than a simple "send email to a local smtp server without security".

Use this UDF when you want to do anything else. It is based on the MS "CDO.Message" COM object:

 

[Caillte]

My main goal was to make a script that did not require credentials embedded that utilized Outlook that's already running on my machine to send a batch of emails.

So, the answer to my first question would be, that's kind of deprecated code and shouldn't be used?

Which leads to the second question of, is there a good way to do what I'm trying to do?

[taurus905]

Hello Caillte,

I haven't tested this, but maybe it you can get it working.

taurus905

Local $oOutlook = ObjGet("", "Outlook.Application") ; Get running instance of Outlook

If Not IsObj($oOutlook) Then
    MsgBox(0, "Error", "No running instance of Outlook found.")
    Exit
EndIf

Local $oNamespace = $oOutlook.GetNamespace("MAPI")
Local $oMailItem = $oOutlook.CreateItem(0) ; olMailItem

Local $aRecipients = ["recipient1@example.com", "recipient2@example.com"] ; Add your recipients here

For $sRecipient In $aRecipients
    $oMailItem.Recipients.Add($sRecipient)
Next

$oMailItem.Subject = "Your Subject"
$oMailItem.Body = "Your Message Body"
$oMailItem.Send()

 

[Caillte]

Thanks for the insight, Taurus, but that does not handle the requirement of CC and BCC addresses. I'll take a deeper look at COM as an option, though. 

[taurus905]

Try this:

Local $oOutlook = ObjGet("", "Outlook.Application") ; Get running instance of Outlook

If Not IsObj($oOutlook) Then
    MsgBox(0, "Error", "No running instance of Outlook found.")
    Exit
EndIf

Local $oMailItem = $oOutlook.CreateItem(0) ; olMailItem

; Recipient types
Global Enum $olTo = 1, $olCC, $olBCC

Local $aRecipientsTo = ["recipient1@example.com", "recipient2@example.com"] ; Add your TO recipients here
Local $aRecipientsCC = ["cc1@example.com", "cc2@example.com"] ; Add your CC recipients here
Local $aRecipientsBCC = ["bcc1@example.com", "bcc2@example.com"] ; Add your BCC recipients here

For $sRecipient In $aRecipientsTo
    $oMailItem.Recipients.Add($sRecipient).Type = $olTo
Next

For $sRecipient In $aRecipientsCC
    $oMailItem.Recipients.Add($sRecipient).Type = $olCC
Next

For $sRecipient In $aRecipientsBCC
    $oMailItem.Recipients.Add($sRecipient).Type = $olBCC
Next

$oMailItem.Subject = "Your Subject"
$oMailItem.Body = "Your Message Body"
$oMailItem.Send()