فى البداية اشكرك اخى الفاضل ياسر على سرعة ردك واهتمامك
لكن موضوعى لايقف عند حد ارسال ايميل ولكن باختصار انا لدى موقع بيفتح باسم مستخدم وباسوورد ومن ثم يكون لدى بيانات على الاكسيل بادخلها بالموقع واقوم باستخراج نتائج خاصة بالبيانات اريد كتابتها بالاكسيل لقد توصلت الى فتح الموقع والدخول الية بواسطة الاكسيل ولكن لا استطيع ادخال البيانات الموجودة بالاكسيل فارجوا مساعدتى فى ذلك
استخدمت الكود الاتى بالدخول ولكن لا استطيع استكمالة
Sub open web()
Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
On Error GoTo Err_Clear
MyURL = "
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.navigate MyURL
MyBrowser.Visible = True
Do
Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.d*ocument
HTMLDoc.all.username.Value = "mmmmmm" 'Enter your email id here
HTMLDoc.all.passwd.Value = "xxxxxx" 'Enter your password here
For Each MyHTML_Element In HTMLDoc.getElementsByTagName("i*nput")
If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
Next
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub
تحميل محتوى الموضوع
عرض نسخة صالحة للطباعة
أرسل هذا الموضوع إلى صديق
