posta göndermede sorun

[alirizapekbilir]

Private Sub cmd2_Click()
Dim a As Integer
Dim b As Integer

a = Cells(2, 10)
b = Cells(2, 12)
'If a <= 1 Or b < a Or b <= 2 Then MsgBox "Hatalı değer girdin,": Exit For
'MsgBox a & b
For x = a To b
'mail
'Sub Send_Email_Using_VBA()
Dim Email_Subject, Email_Send_From, Email_Send_To, Email_Cc, Email_Body, strLines As String
Dim Mail_Object, Mail_Single As Variant
Dim mailBody As String
mail:
'içerik

mailBody = Cells(x, 7) & vbNewLine _
& vbNewLine _
& mdNumber
'konu
Email_Subject = Cells(x, 6)
Email_Send_From = ""
If Cells(x, 8) = "" Then GoTo cik
Email_Send_To = Cells(x, 8)
Email_Cc_To = Cells(x, 9)
Email_Body = mailBody

On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.CC = Email_Cc
.Body = Email_Body
.Importance = olImportanceHigh
.Display 'gönderilecek maili göster
'If CheckBox1.Value = False Then GoTo direktgonder
.Send 'gönderilecek maili göstermeden direkt gönderim için
'direktgonder:
Application.Wait (Now + TimeValue("00:00:02"))
'Application.SendKeys "%s", True
End With
Set Mail_Object = Nothing
Set Mail_Single = Nothing
Application.Wait (Now + TimeValue("00:00:01"))
debugs:
If Err.Description <> "" Then MsgBox Err.Description
cik:
Next
End Sub


Sevgili Arkadaşlar
Bu makroyu bu siteden buldum kendime uyarladım. sorunum şu ben atacak olduğum mail de "Bilgi" kısmınada excel sayfamın ı sutununda bulunan posta adreslerininde eklenmesini istiyorum. makro konusunda çok iyi değilim hatta sıfıra yakınım ayrıca aynı konu ile ilgili bu 3. mesajım benim için çok önemli. Lütfen yardım edin

 

[askm]

.CC = Email_Cc kısmı ile tanımlama kısmındaki alan aynı değil. Email_Cc_To olması gerekli. Örnek dosya üzerinde sorarsanız daha kolay çözüm bulursunuz.