• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Avea ile mesaj gönderme

  • Konbuyu başlatan Konbuyu başlatan gulvadi
  • Başlangıç tarihi Başlangıç tarihi
G

gulvadi

Katılım
4 Aralık 2011
Mesajlar
94
Excel Vers. ve Dili
2007 Türkçe
Merhaba
Atılacak mesaj metinleri Excel sayfamızın k, telefon numaraları j sütununda mesaj metni var. Ben Avea Web safasını açıp sıra ile mesajları göndermek istiyorum. Başlangıç olarak sayfa açıldı telefon no ve şife yazıldı. Sonra gönder butonuna basılacak ben butona Click butonunu bulamadım. Daha sonra J den mesaj metnini k sütunundan telefon no alacak açılan butonlara basarak bu işlem devam edecek. kodlar aşağıda kımızı olanlar hatalıdır.
Kod: 
Sub mesaj()
Dim URL As String
Dim IE As Object
 Set IE = CreateObject("InternetExplorer.Application")
     IE.Visible = True
     IE.navigate "https://www.avea.com.tr/mps/Portal?cmd=websms&lang=tr&pagemenu=ilave.websms"
With IE
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
Do Until IE.ReadyState = 4: DoEvents: Loop
With IE.Document.all
.redTabLogin.Value = "Telefon no Girilecek"
.redpassword.Value = "şifregir"
[COLOR="red"].messageLength.Click[/COLOR]
Do Until IE.ReadyState = 4: DoEvents: Loop
End With
End With
Application.Wait (Now + TimeValue("0:00:5"))
     sonmesaj = Cells(1, 9) + 1
      For i = 1 To sonmesaj
     With IE
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
Do Until IE.ReadyState = 4: DoEvents: Loop
With IE.Document.all
[COLOR="Red"].smsMessage.Value = Cells(i, 10).Value
.InputBox.Value = Cells(i, 11).Value
.messageLength.Click[/COLOR]
Application.Wait (Now + TimeValue("0:00:5"))
IE.Document.all("Submit").Click
IE.Visible = True
End With
End With
Next i
Application.Wait (Now + TimeValue("0:00:5"))
IE.Visible = False
End Sub
 
.redTabLogin.Value = "Telefon no Girilecek"
.redpassword.Value = "şifregir"
SendKeys IE.Document.GetElementById("SubmitImage").Click()
 
Sayın Trilenium ilginiz için teşekürler fakat
SendKeys IE.Document.GetElementById("SubmitImage").Click()
Satırı hata veriyor.
Run-time error "5":
Invalid procedure calll or argument
yazıyor.
 
Aşağıdaki kodda butonların adları ne olabilir
Kod: 
Sub mesaj()
Dim URL As String
Dim IE As Object
 Set IE = CreateObject("InternetExplorer.Application")
     IE.Visible = True
     IE.navigate "https://www.avea.com.tr/mps/Portal?cmd=websms&lang=tr&pagemenu=ilave.websms"
With IE
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
Do Until IE.ReadyState = 4: DoEvents: Loop
With IE.Document.all
.redTabLogin.Value = "telefon no"
.redpassword.Value = "şifre"
[COLOR="red"]Burada buton olacak[/COLOR]
Application.Wait (Now + TimeValue("0:00:5"))
Do Until IE.ReadyState = 4: DoEvents: Loop
End With
End With
Application.Wait (Now + TimeValue("0:00:5"))
     sonmesaj = Cells(1, 9) + 1
      For i = 1 To sonmesaj
     With IE
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
Do Until IE.ReadyState = 4: DoEvents: Loop
With IE.Document.all
.Destination.Value = Cells(i, 11).Value
.smsMessage.Value = Cells(i, 10).Value
[COLOR="Red"].Burada buton olacak[/COLOR]
Application.Wait (Now + TimeValue("0:00:5"))
[COLOR="red"]Burada buton olacak[/COLOR]
IE.Visible = True
End With
End With
Next i
Application.Wait (Now + TimeValue("0:00:5"))
IE.Visible = False
End Sub
Butonların ikisi üzerinde gönder yazıyor.
 
Bende gönderiyor veriyi? Dosya haline getirip eklermisiniz
 
Kadlarınızın birinci bölümü için


Kod: 
IE.document.all("SubmitImage").Click
IE.document.forms(0).submit
SendKeys IE.document.all("SubmitImage").Click()
IE.document.all("SubmitImage").OnChange

yukarıdakilerden birini deneyin veya alttakini deneyin

Kod: 
IE.document.all("SubmitImage").Focus
SendKeys ("{TAB}"), True


kadlarınızın diğer bölümlerini deneme imkanım olmadığı için yazamadım.
 
teşekkürler
Evde Office 2003 de
Kod: 
Sub mesaj()
Dim URL As String
Dim IE As Object
 Set IE = CreateObject("InternetExplorer.Application")
     IE.Visible = True
     IE.navigate "https://www.avea.com.tr/mps/Portal?cmd=websms&lang=tr&pagemenu=ilave.websms"
With IE
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
Do Until IE.ReadyState = 4: DoEvents: Loop
With IE.document.all
.redTabLogin.Value = "Tel no"
.redpassword.Value = "şifre"
SendKeys IE.document.GetElementById("SubmitImage").Click()
Do Until IE.ReadyState = 4: DoEvents: Loop
End With
End With
Application.Wait (Now + TimeValue("0:00:2"))
     sonmesaj = Cells(1, 9) + 1
      For i = 2 To sonmesaj
     With IE
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
Do Until IE.ReadyState = 4: DoEvents: Loop
With IE.document.all
.Destination.Value = Cells(i, 11).Value
.smsMessage.Value = Cells(i, 10).Value
.SubmitImage.Click
[COLOR="Red"](Burada bir buton var iki seçenekli Tamam İptal Resmi likte)[/COLOR]
Application.Wait (Now + TimeValue("0:00:15"))
SendKeys IE.document.GetElementById("Submit2").Click()
IE.Visible = True
End With
End With
Cells(i, 13).Value = "Gönderildi"
Next i
Application.Wait (Now + TimeValue("0:00:5"))
IE.Visible = False
End Sub
http://img854.imageshack.us/img854/5958/hags.jpg
bunun kaynak kodları Mozilla Firefox ile görünmüyor.
Bunun Tamam butonuna hagi komutla basabilirim
 
Son düzenleme:
6 nolu mesajdaki ikinci kod bölümündeki bu kodu bir denermisiniz.

Kod: 
SendKeys ("{TAB}"), True
 
Yukarıdaki kodlar evde çalışıyor. 2003 Türkçe versiyon var. Okulda çalışmıyor. 2007 Türkçe versiyon var. Ne yapmalıyım
Kod: 
IE.document.forms(0).submit
kodu girişte çalışıyor. İki buton çalışmıyor. Resimle gösterdiğim butona klevyeden Enter'e basınca çalışıyor.
 
Kod: 
SendKeys ("{enter}"), True
denedim ama o da çalıştımadı.
Ayrıca;
Kod: 
SendKeys IE.document.all("Submit2").Click()
kodu evde çalışıyor okalda çalışmıyor.
okul windos 7 ve office 2007
ne yapmalıyım
 
SendKeys IE.document.all("Submit2").Click()
kodu windos 7 de çalışmıyor. Bunun karşılığı nedir? Bilen var mı?
 
Kodunuz evdeki bilgisayarda çalışıyorda iş yerindeki bilgisayarda çalışmıyorsa üçüncü bir bilgisayarla başka bir yerde deneme yapın sonucu irdeleyin belkide iş yerindeki bilgisayarda sorun vardır.
 
Resimdeki buton hiç bir yede çalışmıyor. Bo buton safadan bağımsız olarak geliyor ve Mozilla Firefox ile sayfa kodları görünmüyor.
 
Kod: 
SendKeys ("{enter}"), True
kodunun çalışmama sebebi sayfanın deşimimidir? Eğer sonradan gelen "Tamam ve İptal" buton takımına hükmetmek için ne yapmak gerekir?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst