- Katılım
- 11 Şubat 2016
- Mesajlar
- 199
- Excel Vers. ve Dili
- 2013
- Altın Üyelik Bitiş Tarihi
- 15-02-2021
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
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
'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