[karakutum]

Merhaba arkadaşlar Milli Eğitimde portlarda engel olduğu için CDO ile bağlantı yapamadığımızdan web üzerinden gmaile bağlantı yapıp mail göndermek istiyorum fakat e-posta ve şifre ekranında bir türlü yapamadım. bu konuda yardıma ihtiyacım var.
kullandığım kodlar aşağıdadır

Set evn = CreateObject("internetexplorer.application")
With evn
evn.Visible = True
.navigate "https://mail.google.com/mail"
Application.Wait (Now() + TimeValue("00:00:01"))
SendKeys "{ENTER}"
.identifier.Value = xxxxxxxxx @ gmail.com
Application.Wait (Now() + TimeValue("00:00:01"))
SendKeys "{ENTER}"
.Password.Value =00000000
Application.Wait (Now() + TimeValue("00:00:01"))
SendKeys "{ENTER}"
Application.Wait (Now() + TimeValue("00:00:01"))
.navigate "https://mail.google.com/mail/u/0/#inbox?compose=new"

End With

[elfinito]

Merhaba,
Öncelikle çalışmanıza Tools > References > “Microsoft Internet Controls” ile “Microsoft HTML Object Library” ekleyiniz. Aşağıdaki gibi deneyebilirsiniz. Bir defa oturum açtıktan sonra tekrar çalıştırdığınızda hata verirse ya da son aşamada “Yeni Eposta” (Compose) açılmazsa, inbox’a geçip hata verirse … gibi durumlarda bekleme süresini 10 yapıp deneyiniz. Hala hata almaya devam ederseniz gmail oturumunuzu tamamen kapatıp baştan çalıştırıp deneyiniz. Güvenlik doğrulamasına takılırsanız, cep telefonunuza kod gönderelim ya da hesap ayarlarınızı güncelleyin gibi bir yönlendirmeye takılırsanız çalışmayacaktır, bilginize. İyi çalışmalar.

Kod: Tümünü seç

Sub GirMail()
  Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "https://accounts.google.com/signin/v2/identifier?continue=https://mail.google.com"
    Application.Wait (Now() + TimeValue("00:00:05"))
    If IE.LocationURL = "https://mail.google.com/mail/u/0/#inbox" Then GoTo 0:
    Set htm = IE.document
   If Left(IE.LocationURL, 44) = "https://accounts.google.com/signin/v2/sl/pwd" Then GoTo 1:
    htm.all.Identifier.Value = "GMAIL ADRESINIZI BURAYA YAZIN @gmail.com"
    htm.all.IdentifierNext.Click
    Application.Wait (Now() + TimeValue("00:00:05"))
1:
    For Each eleman In htm.getElementsByName("password")
        If eleman.getAttribute("type") = "password" Then
            eleman.Value = "ŞİFRENİZİ BURAYA YAZIN"
            Exit For
        End If
    Next
    htm.all.passwordNext.Click
0:
    Application.Wait (Now() + TimeValue("00:00:05"))
    IE.navigate "https://mail.google.com/mail/u/0/#inbox?compose=new"
    Set IE = Nothing
    Set htm = Nothing
    Set eleman = Nothing
End Sub


[karakutum]

teşekkür ederim yardımın için

[Enes Recep BAĞ]

Outlook dışında mail yollamak için, schema yı araştırınız.

Kod: Tümünü seç

Sub gmailyolla()
Set GmailMesaj = CreateObject("CDO.Message")
Set CdoMesaj = CreateObject("CDO.Configuration")
Set aaa = CdoMesaj.Fields
    schema = "http://schemas.microsoft.com/cdo/configuration/"
    With aaa
        .Item(schema & "sendusing") = 2
        .Item(schema & "smtpserver") = "smtp.gmail.com"
        .Item(schema & "smtpserverport") = 465
        .Item(schema & "smtpauthenticate") = 1
        .Item(schema & "sendusername") = "enesbag@gmail.com"
        .Item(schema & "sendpassword") = "*******************"
        .Item(schema & "smtpusessl") = 1
        .Update
    End With
    With GmailMesaj
        .To = "***@***.com.tr"
        .From = "***@***.com.tr"
        .Subject = ""
        .HTMLBody = ""
        .Sender = "EVN"
        .ReplyTo = ""
        Set .Configuration = CdoMesaj
        SendEmailGmail = .Send
    End With
Set GmailMesaj = Nothing
Set CdoMesaj = Nothing
Set aaa = Nothing
Eposta = Empty
schema = vbNullString
End Sub


[karakutum]

merhaba schema özelliği olan kodları daha önce dememiştim evden gmail ile sorunsuz gönderiyor fakat okulda meb portları kapalı ve normal modem kullanmadıklarından dolayı portlara müdahale edemiyoruz. önceki göndermiş olduğun kodlarda oldu fakat oturum kapatsak da arka planda mail adresi hafızada kalıyor.
https://outlook.live.com üzerinden schema ile mail gönderebilirmyiz.