Merhaba,
Aşağıdaki vba kodunu oluşturdum ancak compile invalid property error veriyor, kodda mı problem var veya bir eklenti mi gerekiyor?
Sub mail()
a = MsgBox("Mail Gönderilecek. Devam Edilsin Mi?", vbYesNo)
If a = vbYes Then
Sheets("data").Select
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdate = False
Set OutApp = CreateObject("Outlook Application")
On Error GoTo temizle
Sheets("data").Select
For I = 2 To 4
Range("A" & Rows.Count).End(xlUp).Row
mesajmetni = "xxxxxx"
kitap = Range("D" & I) & ".xlsx"
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("c" & I)
.Subject = "xxx"
.body = mesajmetni
.cc = Range("E" & I) & ";" & Range("F" & I) & ";" & Range("G" & I)
.Attachmnets.Add "C:\" & kitap
.SentOnBehalfOfName = "<abc@abc.com.tr>"
.View
.send
End With
On Error GoTo 0
Set OutMail = Nothing
Next I
End If
End Sub
Aşağıdaki vba kodunu oluşturdum ancak compile invalid property error veriyor, kodda mı problem var veya bir eklenti mi gerekiyor?
Sub mail()
a = MsgBox("Mail Gönderilecek. Devam Edilsin Mi?", vbYesNo)
If a = vbYes Then
Sheets("data").Select
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdate = False
Set OutApp = CreateObject("Outlook Application")
On Error GoTo temizle
Sheets("data").Select
For I = 2 To 4
Range("A" & Rows.Count).End(xlUp).Row
mesajmetni = "xxxxxx"
kitap = Range("D" & I) & ".xlsx"
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("c" & I)
.Subject = "xxx"
.body = mesajmetni
.cc = Range("E" & I) & ";" & Range("F" & I) & ";" & Range("G" & I)
.Attachmnets.Add "C:\" & kitap
.SentOnBehalfOfName = "<abc@abc.com.tr>"
.View
.send
End With
On Error GoTo 0
Set OutMail = Nothing
Next I
End If
End Sub
