السلام عليكم
هذا الكود يقوم بجمع الايميلات من ملف معين
جربت الكود لكن اكتشفت انه مايستخرج الا الدومين بس
بمعني اصح ... بدل مايستخرج ايميل user@domain.com
يستخرج لي @domain.com
هل من حل لهذه المشكله؟
انا هدفي هو استخراج الايميل عن طريق الرمز @
وليس بالاعتماد على كلمة :mailto
هذا هو الكود :
Sub GetEmail(ByVal txt As String)
Dim Pos As Long, Finish As Long
Pos = InStr(txt, "@")
Do While Pos
Finish = InStr(Pos, txt, Chr(34))
s = Mid(txt, Pos, Finish - Pos)
MsgBox s
Pos = InStr(Pos + 1, txt, "@")
Loop
End Sub
Sub Command1_Click()
Dim sArr() As String, txt As String
Open "C:mail.htm" For Input As #1
txt = Input(LOF(1), #1)
Close #1
GetEmail txt
End Sub
اتمنى اجد الحل وبنفس طريقة البحث عن الايميل
شكرا