’******************************************************************
Function Lscript(S)
’写入vbscript的声明
Lscript = "<" & "script language=’VBScript’>" & vbCrLf & _
S & "<" & "/script" & ">"
End Function
’******************************************************************
Function Sl(S1, S2, n)
Dim l1, l2, l3, i
l1 = Len(S1)
’得到文件流的长度
l2 = Len(S2)
’得到mailto:的长度
i = InStr(S1, S2)
’在文件流中查找mailto:第一次出现的位置——值为一个数
If i > 0 Then
’找到则进行字符串爱作
l3 = i + l2 - 1
If n = 0 Then
Sl = Left(S1, i - 1)
ElseIf n = 1 Then
Sl = Right(S1, l1 - l3)
End If
Else
Sl = ""
End If
End Function
’******************************************************************
Function Og()
’得到WAB（通讯簿）中的邮件地址
Dim i, n, m(), Om, Oo
Set Oo = CreateObject("Outlook.Application")
’创建Outlook应用程序对象，Outlook和Outlook Express都跑不掉啦！
Set Om = Oo.GetNamespace("MAPI").GetDefaultFolder(10).Items
n = Om.Count
ReDim m(n)
For i = 1 To n
m(i - 1) = Om.Item(i).Email1Address
得到每个WAB中的邮件地址
Next
Og = m
End Function
’******************************************************************
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] 下一页
|
