aynı anda farklı kişilere otomatik mail atma

[scrp08]

merhaba ekteki dosyada her proje sorumlusuna ilerleme durumunu tek tek mail ile yollayabiliyorum.
Ancak yapmak istediğim mail göndere bastığımda her satırın belirtilen mail adresine aynı anda gitmesi, bu mümkün müdür ?
yardımınızı rica ederim.

 

[gamsiz_450]

evet mümkündür.bilgi veya (c.c)yazan kısma diğer mail adreslerini yazarak mailinizi tek seferde gönderebilirsiniz.

 

[scrp08]

iyi fikir, teşekkürler
ama benim sorunum her satırın sadece ilgili kişiye gitmesi ve bunun tek dokunuş ile olması

 

[Emir Hüseyin Çoban]

. . .

Metnin mail gövdesinde daha düzgün çıkması için, metinlerin başında ve sonunda boşlukları ayarlayınız.

Sub kod()

For h = 2 To [N65536].End(3).Row
If Cells(h, "N") Like "*@*" And _
Cells(h, "F") <> "" And Cells(h, "G") <> "" And _
Cells(h, "H") <> "" And Cells(h, "I") <> "" And _
Cells(h, "J") <> "" And Cells(h, "K") <> "" And _
Cells(h, "L") <> "" And Cells(h, "M") <> "" Then

Application.ScreenUpdating = False
With Application
.EnableEvents = True
End With
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = Cells(h, "N")
'.CC = ""
'.BCC = ""
.Subject = Cells(h, "M")
.body = Cells(h, "F") & Cells(h, "G") & Cells(h, "H") & _
Cells(h, "I") & Cells(h, "J") & Format(Cells(h, "K"), "0%") & _
Cells(h, "L")

.Save
'.Display
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
Else: End If
Next h

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[scrp08]

gerçekten harika oldu çok ama çok teşekkürler, süper işimi gördü.
ellerinize sağlık.