Excelden Mail Gönderme

[atabey68]

Sub ONMAIL()
'
' ÖNMAİL Makro
'
sec = Application.InputBox("Mail Gönderilecek Mükellefi Seçin", "MÜKELLEF SEÇİMİ")
Application.ScreenUpdating = False
If sec = False Then GoTo Hata
Sheets("ÖD.TEBL.YAZ").Select
Range("e4") = sec
Set No = Cells(4, 31)
Set adres = Cells(3, 31)
Set renk = Cells(4, 31)
If adres = 0 Then
With ActiveSheet
.PageSetup.PrintArea = "$A$7:$W$30"
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = False
Sheets("AYLIK TAHS.").Select
Cells(renk, 1).Font.Color = -16776961
Exit Sub
Else

Sheets("ÖD.TEBL.MAİL").Select
ActiveSheet.Select
' Eğer Belirli bir alan seçip yazdıracaksak yukarıdaki kodun yerine şu kod yazılacak
ActiveSheet.Range("A7:I30").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
' .Introduction = " "
.Item.To = adres
'.Item.CC = " "
.Item.Subject = Cells(2, 5) & ". AY ÖDEME LİSTESİ"
.Item.Send
End With
ActiveSheet.Range("A7").Select
MsgBox "MAİL BAŞARIYLA GÖNDERİLDİ"
Application.ScreenUpdating = False
Sheets("AYLIK TAHS.").Select
Cells(renk, 1).Font.Color = -16776961
End If
Hata:
End Sub


Bilgisayarımı windows7'den windows10'a yükselttim. Ancak yukarıdaki kod daha önceleri çok iyi çalışıyordu ama şimdi
(Run-time error '-2147417851 (80010105)':
Method 'To' of object '_MailItem' failed
diye hata mesajı veriyor. Bu konuda yardımcı olabilir misiniz? Ne yapmam gerekiyor.

 

[Emir Hüseyin Çoban]

. . .

set adres değişkenini şu şekilde değiştirerek deneyiniz.

adres = Cells(3, 31).value

. . .

 

[atabey68]

Allah Razı Olsun. Çok teşekkür ederim. Halloldu