Mail gönderme sorunu

[mesutaygun70]

Sub gönder()
Dim d() As String, dosya As String, dosyaAdı As String, uzantı As String
With ActiveWorkbook
d = Split(.Name, ".")
uzantı = d(UBound(d))
dosyaAdı = Left(.Name, Len(.Name) - Len(uzantı) - 1)
dosya = CreateObject("Wscript.Shell").SpecialFolders.Item("\\10.***.**.231") & _
"\\10.***.**.231\****mPaylasim\** - İstatistik\YEDEKLER\yedek 03082021" & Application.PathSeparator & _
dosyaAdı & Format(Now, " dd.mm.yyyy_hh/mm") & "." & uzantı
.SaveCopyAs Filename:=dosya
End With
sor = MsgBox("e posta Göndermek İstiyor Musunuz ?", vbYesNo)
If sor = vbNo Then Exit Sub
kullanici_sahibi = "**********@gmail.com"
kullanici_parola = "******"
Set objEmail = CreateObject("CDO.Message")
objEmail.From = kullanici_sahibi
objEmail.To = "******@gmail.com" 'Gönderilecek e-mail adresi
objEmail.Subject = "E****** VERİLERİ"
objEmail.TextBody = "E***** VERİLERİ "
objEmail.AddAttachment "\\10.***.**.231\*****Paylasim\****** - İstatistik\YEDEKLER\yedek 03082021\ÇAĞRI MERKEZİ.xlsx"
With objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = kullanici_sahibi
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = kullanici_parola
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update
End With
objEmail.Send
MsgBox "DOSYA MAİL OLARAK GÖNDERİLMİŞTİR"
End Sub

Yukarıdaki gibi bir kod var. Bu kod ile ağdaki iki bilgisayarın birinden mail gönderme işlemi yapabilirken, diğerinden yapamıyorum. dosya ağ üzerinde kayıtlı. Tek fark birinde youtube vb sitelere tam erişim izni varken, diğerinde kısıtlı ama google drive vb tüm sitelere giriş izni var.

 

[Korhan Ayhan]

Kodu adım adım çalıştırıp hata veren satırı tespit etmelisiniz.