CC kısmını koşula bağlayarak mail atmak

[mumillica]

Merhaba
Elimdeki makroyu çalıştırdığımda sayfanın belirli hücrelerinde yer alan (b34:b50) mail adreslerine mail atmak istiyorum fakat aralığı beceremedim sadece b50 deki kişiye mail gidiyor

Dim OutApp As Object
Dim NewMail As Object
Dim ShName As String, WbName As String
Dim ModX As Object, VBComp As Object
Set OutApp = CreateObject("Outlook.Application")
Set NewMail = OutApp.CreateItem(0)
With NewMail
.To = Sheets("form").Range(["b33"])
.cc = Sheets("form").Range(["b34"]) & Range(["b35"]) & Range(["b36"])
.Subject = "SİSTEM VERİLERİ DÜZELTME / İPTAL TALEBİ"
.Body = "Düzeltme / İptal talebiniz başarıyla sonuçlanmıştır."
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

 

[Asri]

.cc satırını mail sayısına göre arttırabilir siniz.

Dim OutApp As Object
Dim NewMail As Object
Dim ShName As String, WbName As String
Dim ModX As Object, VBComp As Object

Sub mail_gonder()
Sheets("form").Select
Set OutApp = CreateObject("Outlook.Application")
Set NewMail = OutApp.CreateItem(0)
With NewMail
.To = Cells(33, "B").Value
.cc = Cells(34, "B").Value & ";" & Cells(35, "B").Value & ";" & Cells(36, "B").Value
.Subject = "SİSTEM VERİLERİ DÜZELTME / İPTAL TALEBİ"
.Body = "Düzeltme / İptal talebiniz başarıyla sonuçlanmıştır."
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub