macros4outlook-commitlog

[Macros4outlook-commitlog] SF.net SVN: macros4outlook:[63] addcontactmacro/trunk/AddContactMacro.bas

[<ol...@us...>]

Revision: 63
          http://macros4outlook.svn.sourceforge.net/macros4outlook/?rev=63&view=rev
Author:   olly98
Date:     2011-04-22 13:35:26 +0000 (Fri, 22 Apr 2011)

Log Message:
-----------
Added header information

Modified Paths:
--------------
    addcontactmacro/trunk/AddContactMacro.bas

Property Changed:
----------------
    addcontactmacro/trunk/AddContactMacro.bas

Modified: addcontactmacro/trunk/AddContactMacro.bas
===================================================================
--- addcontactmacro/trunk/AddContactMacro.bas	2011-04-22 12:42:01 UTC (rev 62)
+++ addcontactmacro/trunk/AddContactMacro.bas	2011-04-22 13:35:26 UTC (rev 63)
@@ -1,4 +1,27 @@
 Attribute VB_Name = "AddContactMacro"
+'$Id$
+'
+'Add Contact Macro TRUNK
+'
+'Add Contact Macro is part of the macros4outlook project
+'see https://sourceforge.net/apps/mediawiki/macros4outlook/index.php?title=Add_Contact_Macro or
+'    http://sourceforge.net/projects/macros4outlook/ for more information
+'
+'For more information on Outlook see http://www.microsoft.com/outlook
+'Outlook is (C) by Microsoft
+
+'****************************************************************************
+'License:
+'
+' sample Outlook 2003 VBA application by Sue Mosher
+' send questions/comments to web...@ou...
+' modified by dan...@us...
+'****************************************************************************
+
+'Changelog
+'
+'$Revision$ - not released
+
 Option Explicit
 
 
@@ -6,9 +29,6 @@
 
 
 
-' sample Outlook 2003 VBA application by Sue Mosher
-' send questions/comments to web...@ou...
-' modified by dan...@us...
 
 Public Sub AddRecipToContacts(ByVal MailItem As Object)
     Dim strFind As String
@@ -32,7 +52,7 @@
     Set objNS = Application.GetNamespace("MAPI")
     Set objContactFolder = objNS.GetDefaultFolder(olFolderContacts)
     
-    On Error Resume Next  'to skip error if folder isnt in .Folders(...)!
+    On Error Resume Next  'to skip error if folder isn't in .Folders(...)!
     'see if autocontactfolder already exists
     Set objNewContactFolder = objContactFolder.Folders(AUTO_CONTACT_FOLDER_NAME)
     If (objNewContactFolder Is Nothing) Then 'error occured!
@@ -59,7 +79,7 @@
         If objContact Is Nothing Then
             Set objContact = Application.CreateItem(olContactItem)
             With objContact
-                .FullName = Replace(objRecip.name, "'", "")
+                .FullName = Replace(objRecip.Name, "'", "")
                 .Email1Address = objRecip.Address
                 .Save
                 .Move objNewContactFolder
@@ -79,5 +99,3 @@
 Private Function AddQuote(MyText As String) As String
     AddQuote = Chr(34) & MyText & Chr(34)
 End Function
-
-


Property changes on: addcontactmacro/trunk/AddContactMacro.bas
___________________________________________________________________
Added: svn:keywords
   + Id Revision


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Macros4outlook-commitlog] SF.net SVN: macros4outlook:[77] addcontactmacro/trunk/AddContactMacro.bas

[<ol...@us...>]

Revision: 77
          http://macros4outlook.svn.sourceforge.net/macros4outlook/?rev=77&view=rev
Author:   olly98
Date:     2011-04-22 17:25:14 +0000 (Fri, 22 Apr 2011)

Log Message:
-----------
prepared for release

Modified Paths:
--------------
    addcontactmacro/trunk/AddContactMacro.bas

Modified: addcontactmacro/trunk/AddContactMacro.bas
===================================================================
--- addcontactmacro/trunk/AddContactMacro.bas	2011-04-22 17:02:38 UTC (rev 76)
+++ addcontactmacro/trunk/AddContactMacro.bas	2011-04-22 17:25:14 UTC (rev 77)
@@ -20,6 +20,9 @@
 
 'Changelog
 '
+'Version 1.0 - 2011-04-22
+' * first public relese
+'
 '$Revision$ - not released
 
 Option Explicit


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.