office 365 toplu mail göderme

[catalinastrap]

Merhabalar,
aşağıdaki kodu excelde "Toplu Mail" adlı çalışmasayfasının 1.sayfasındaki A sütunundaki mail adreslerine toplu mail atacak şekilde derleyebilirmiyiz.(office 365 için)
B sutununda da konu olacak şekilde

Sub SendEmail()

Dim objOutlook As Object

Dim objMail As Object

Dim strTo As String

Dim strSubject As String

'Dim strBody As String



Set email properties

strTo = "deneme@deneme.com"

strSubject = "deneme333"

strBody = "test 123"





Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)





With objMail

'.To = strTo

.Subject = strSubject

.Body = strBody

.Send

End With



Clean up

Set objMail = Nothing

Set objOutlook = Nothing

'End Sub

 

[qlue01]

Merhaba,
Aşağıdaki kodu dener misiniz ?

Dim Outlook As Object, yeni As Object, i As Long

   Dim x As Integer

   Dim sonsat As Integer

   Dim smail As Worksheet

   Set Outlook = CreateObject("Outlook.Application")

   Set smail = ThisWorkbook.Sheets("Toplu Mail")

   Set yeni = Outlook.CreateItem(0)

    sonsat = smail.Range("A15000").End(3).Row

    For x = 1 To sonsat

        With yeni

             .To = smail.Cells(x, 1)

             .Subject = smail.Cells(x, 2)

             .Body = "test 123"

             '.Display

             .Send

        End With

    Set Outlook = Nothing: Set yeni = Nothing: i = Empty

    Set smail = Nothing

 

[DoğanD]

Merhaba,

A sütununda mail adreslerinin 2. satırdan başladığını ve B sütununda konular olduğunu ilettiğiniz için mailleri teker teker göndereceğinizi varsayarak aşağıdaki kod işinize yarayabilir. Kontrol etmeniz amacı ile kod içindeki ".Send" ifadesi yerine göndermeden görüntülemek için ".Display" ifadesini ekledim. Tüm kontrolleri yaptıktan sonra direkt göndermesi için ".Send" ifadesinin başındaki tek tırnak işaretini ve Display satırını silebilirsiniz.

Sub SendEmail()
Dim objOutlook As Object
Dim objMail As Object
Dim strTo As String
Dim strSubject As String
Dim i As Integer
Dim strBody
'Set email properties
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
strTo = Sheets("Toplu Mail").Range("A" & i).Value
strSubject = Sheets("Toplu Mail").Range("B" & i).Value
strBody = "test 123"
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.to = strTo
.Subject = strSubject
.Body = strBody
'.Send
.display
End With
'Clean up
Set objMail = Nothing
Set objOutlook = Nothing
Next i
End Sub