Kod:
Sub BirdenFazlaKisiyeMailAt()
Set OutApp = New Outlook.Application
For i = 2 To [g65536].End(3).Row
Set NewMail = CreateItem(olMailItem)
With NewMail
.to = Cells(i, "g")
.Subject = "deneme"
.Body = "Sayın Yetkili Bu mail ekte görmüş olduğunuz mail bilgi için gönderilmiştir."
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
Next
MsgBox "Bitti."
End Sub