[AccessD] A2K3: Add eMail Addy to Outlook Distibution List?

Christopher

Try something like this. You must set a Reference to the Outlook Library.


Function CreateContact(frm As Form)
Dim objOutlook As Outlook.Application
Dim objOutlookNameSpace As Outlook.NameSpace
Dim objOutlookItem As Outlook.ContactItem
Dim objOutlookFolder As Outlook.MAPIFolder

'Create the Outlook session
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookNameSpace = objOutlook.GetNamespace("MAPI")
'Amend this line to get your contacts folder.
Set objOutlookFolder = objOutlookNameSpace.Folders("Public Folders Or Your
Top Level").Folders("Next Level").Folders("And So On To Your Folder")
        
Set objOutlookItem = objOutlookFolder.Items.Add(olContactItem)
With objOutlookItem
  .BusinessFaxNumber = Nz(frm!txtFax, "")
  .BusinessTelephoneNumber = Nz(frm!txtPhone, "")
  .CompanyName = Nz(frm!txtCompanyName, "")
  .Department = Nz(frm!txtDept, "")
  .Email1AddressType = "SMTP"
  .Email1Address = Nz(frm!txtEmail, "")
  .FileAs = Nz(frm!txtContactName, "")
  .Fullname = Nz(frm!txtContactName, "")
  .JobTitle = Nz(frm!txtJobTitle, "")
  .MobileTelephoneNumber = Nz(frm!txtMobile, "")
  .Subject = Nz(frm!txtCompanyName & " (" & frm!txtContactName & ")", "")
  .Save
End With

Exit_CreateContact:
Call SysCmd(acSysCmdClearStatus)
Set objOutlookItem = Nothing
Set objOutlookFolder = Nothing
Set objOutlookNameSpace = Nothing
Set objOutlook = Nothing
End Function


-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Christopher Hawkins
> Sent: 27 May 2004 21:03
> To: accessd at databaseadvisors.com
> Subject: [AccessD] A2K3: Add eMail Addy to Outlook Distibution List?
> 
> 
> Hello all!
> 
> So, I have finally been called upon to do some interaction 
> with Outlook via Access...and I don't have the foggiest idea 
> how to do it! I already took to Google, but got nothing usable.
> 
> THE CHALLENGE:
> 
> Given an Access database with customer records in it, I must 
> add selected customer records to a Newsletter distribution 
> list in Outlook via a button click from the Customer screen.  
> 
> The Newsletter distribution list resides within UserA's 
> Contacts folder, but everyone in the office has permissions 
> to view and update it.
> 
> Hopefully somebody can point me to a good resource for 
> Access-Outlook interaction, or has done this before and can 
> provide sample code.
> 
> In the meantime, I'll head back to Google and see what I can find...
> 
> Suggestions?
> 
> -Christopher Hawkins-
> 
> 
> -- 
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/a> ccessd
> Website: 
> http://www.databaseadvisors.com
> 
>