Блог

 $x1 = New-Object -comobject Excel.Application
$FilePath = "C:DesktopReview.xlsx"
$UserWorkBook = $x1.Workbooks.Open($FilePath)
$UserWorksheet = $UserWorkBook.Worksheets.Item(1)
$UserWorksheet.activate()
$rgeSource=$UserWorksheet.range(“A1”,“D9”)
$rgeSource.Copy() | out-null
$Outlook = New-Object -comObject Outlook.Application
$Mail = $Outlook.CreateItem(0)
$Recipients = 'xyz@Abc.com'|ForEach{$Mail.Recipients.Add($_)}
$Recipients | ForEach{$_.resolve()}

$CC = 'xyz@abc.com'|ForEach{$Mail.Recipients.Add($_)}
$CC | ForEach{$_.resolve()}
$CC | ForEach{$_.Type=2}


$Mail.Subject=“TEST as of  $((Get-Date -Format 'dd/MM/yy '))" 
$oDoc = $Mail.GetInspector.WordEditor
$oRange = $oDoc.Range()
$oRange.InsertBefore("")
$oRange.InsertParagraph
$oRange.Collapse($wdCollapseStart)
$oRange.Paste()
$oRange.Collapse($wdCollapseEnd)
$oRange.InsertAfter(“Thanks”)
$oRange.InsertParagraphAfter()
$Mail.Display()
$Mail.Send()
  

Это код, который отлично работает с Outlook, он открывает файл Excel, копирует данные и вставляет их в текст сообщения и отправляет электронное письмо.
Теперь я хочу сделать то же самое, но отправлять электронные письма с помощью учетной записи Gmail.

Поскольку вы используете com-объекты для взаимодействия с Outlook (вы также можете сделать это с помощью c # или vba), вы проверили свойства sender или senderemailaddress ?

https://learn.microsoft.com/en-us/office/vba/api/outlook.mailitem.sender
https://learn.microsoft.com/en-us/office/vba/api/outlook.mailitem.senderemailaddress