This tutorial assumes you have Drag&Drop E-mail List Manager (Download) open
You can easily build your own lists by placing the code below on your own webpages. Many web sites which let you post html can do this for you. What happens is that a new subscriber clicks on your link and it sends an e-mail from their computer to your inbox. Then use Drag&Drop E-mail List Manager to add it to your list! Simply replace the email address subscribe@jgilmore.com with your address. Simple Link styleSubscribe See how it works Subscribe Form style <form method="POST" action="mailto:subscribe@jgilmore.com?subject=Subscribe" ENCTYPE="text/plain"> <input type="text" name="to" title="Enter e-mail address to subscribe"/> <input type="submit" value="Subscribe"/> </form> See how it works:
Const Path = "c:\Program Files\GSD\" Const FileName = "email" Const Ext = ".txt" Const CopyRight = "Copyright © 2006 Gilmore Software Development" Private WithEvents olInboxItems As Items Private Sub Application_Startup() Dim objNS As NameSpace Set objNS = Application.GetNamespace("MAPI") Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items Set objNS = Nothing End Sub Private Sub Application_Quit() Set olInboxItems = Nothing End Sub Private Sub olInboxItems_ItemAdd(ByVal Item As Object) If LCase(Mid$(Item.Subject, 1, 9)) = "subscribe" Then Open Path + FileName + Mid$(Item.Subject, 10) + Ext For Append As #1 Print #1, Item.SenderEmailAddress Close #1 End If Set Item = Nothing End Sub