Gmail ile web üzerinden mail gönderme

Excel ile MS Outlook, Outlook Express, Gmail vb. programlar ile mail işlemleri hakkındaki bölüm.

Gmail ile web üzerinden mail gönderme

İleti#1)  karakutum » 13 Eyl 2018 13:38

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
Kullanıcı avatarı
karakutum
Yeni Başlamış
 
Kayıt: 09 Nis 2017 01:43
Meslek: Memur
Yaş: 38
İleti: 57
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Gmail ile web üzerinden mail gönderme

İleti#2)  elfinito » 15 Eyl 2018 00:41

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
Kullanıcı avatarı
elfinito
Yeni Başlamış
 
Adı Soyadı:Erhan AKKAYA
Kayıt: 09 Ekm 2011 19:03
İleti: 67
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Gmail ile web üzerinden mail gönderme

İleti#3)  karakutum » 15 Eyl 2018 01:15

teşekkür ederim yardımın için
Kullanıcı avatarı
karakutum
Yeni Başlamış
 
Kayıt: 09 Nis 2017 01:43
Meslek: Memur
Yaş: 38
İleti: 57
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Gmail ile web üzerinden mail gönderme

İleti#4)  Enes Recep BAĞ » 15 Eyl 2018 11:43

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
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8226
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Gmail ile web üzerinden mail gönderme

İleti#5)  karakutum » 15 Eyl 2018 15:42

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.
Kullanıcı avatarı
karakutum
Yeni Başlamış
 
Kayıt: 09 Nis 2017 01:43
Meslek: Memur
Yaş: 38
İleti: 57
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL


Forum Excel ile Mail İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 4 misafir

cron
Bumerang - Yazarkafe