Access-3stone

Visites

visiteurs

visiteurs en ligne

Archives du forum - Problèmes Access des débutants - Sujet n°246

Sujet n°246

Ajouter contacts dans Outlook
par polux le 30/05/2009 : 11:54

Bonjour,

J'utilise ce code repris sur le site et qui fonctionne parfaitement mais je souhaite ajouter à l'export le N° de rue qui dans mon formulaire se nomme N°-Bte Livr

Le code utilisé actuellement est celui-ci:

Private Sub Commande877_Click()

Dim Ol_App As New Outlook.Application
Dim Ol_Mapi As Namespace
Dim Ol_Folder As MAPIFolder
Dim Ol_Contact As Outlook.ContactItem

Set Ol_Mapi = Ol_App.GetNamespace("MAPI")
Set Ol_Folder = Ol_Mapi.GetDefaultFolder(olFolderContacts)
Set Ol_Contact = Ol_App.CreateItem(olContactItem)

With Ol_Contact

If Not IsNull(Me!Société) Then
.FirstName = Me!Société
End If

If Not IsNull(Me.Page_WEB) Then
.BusinessHomePage = Me.Page_WEB
End If

If Not IsNull(Me!Téléphone) Then
.BusinessTelephoneNumber = Me!Téléphone
End If

If Not IsNull(Me!FaxLivraisons) Then
.BusinessFaxNumber = Me!FaxLivraisons
End If

If Not IsNull(Me!SociétéFactu) Then
.CompanyName = SociétéFactu
End If

If Not IsNull(Me.Ctl19GSM) Then
.MobileTelephoneNumber = Ctl19GSM
End If

If Not IsNull(Me.Ctl21E_mails) Then
.Email1Address = Ctl21E_mails
End If

If Not IsNull(Me.AdresseLivr) Then
.BusinessAddressStreet = AdresseLivr
End If

If Not IsNull(Me.Ctl34Code_Post) Then
.BusinessAddressPostalCode = Ctl34Code_Post
End If

If Not IsNull(Me.Ctl35Ville) Then
.BusinessAddressCity = Ctl35Ville
End If

If Not IsNull(Me.Ctl36POS_LIV_PAYS) Then
.BusinessAddressCountry = Ctl36POS_LIV_PAYS
End If

.Categories = "Add Access"

.Save

End With

Set Ol_Contact = Nothing
Set Ol_Folder = Nothing
Set Ol_Mapi = Nothing
Set Ol_App = Nothing

End Sub

Je suppose que je dois rajouter une ligne du style:

If Not IsNull(Me.N°-Bte Livr) Then
.?????????????????? = Me.N°-Bte Livr
End If

Merci d'avance.

Réponse n° 1

par 3Stone le 02/06/2009 : 23:04

Bonjour,

Je suppose que je dois rajouter une ligne du style:

Dixit...

If Not IsNull(Me.N°-Bte Livr) Then
.?????????????????? = Me.N°-Bte Livr
End If

Comme tu as ajouté les autres... wink

Mais tu devrais te méfier de noms tels que "N°-Bte Livr"

NoBteLivraison est plus lisible et ne nécessite pas de crochet [N°-Bte Livr] comme dans ton cas...

Cordialement,

Pierre(3stone)

Réponse n° 2

par polux le 03/06/2009 : 14:52

Bonjour Pierre,

Et merci de me faire remarquer une fois de plus mes grossières erreurs.... frown

En admettant que mon noms soit NoBteLivraison je ne sais pas quel champs de Outlook je dois utiliser car apparement je devrais concatener l'adresse et ne N° avec le code ".BusinessAddressStreet " a moins qu'il n'y aurait une dénomination spécifique pour le champs N° de rue de Outlook du style BusinessAdrressNumber ?

Si la dénomination existe dans Outlook, pourrais-tu me la communiquer ?

Encore merci d'avance !!!!

Réponse n° 3	par 3Stone le 04/06/2009 : 00:03
Bonjour, Regarde si tu trouves ce qui te convient sur ce lien... Sinon, ouvre ton Outlook et fais ALT+F11 pour te retrouver dans l'éditeur VBA. En haut à gauche, choisi Outlook au lieu de "Toutes bibliothèques". Dans la fenêtre des "Classes", sélectionne "ContactItem" et... regarde la liste à droite Cordialement, Pierre(3stone)

Réponse n° 4

par Polux le 04/06/2009 : 13:55

Bonjour Pierre,

Voici après tes précieux conseils j'ai essayé ceci:

If Not IsNull(Me.NoBteLivr) Then
.BusinessAddressPostOfficeBox = NoBteLivr
End If

Mais malheureusement le N° de rue ne s'affiche pas sur la page général des contacts Outlook et mon adresse reste du style:

Rue Théophile Delbar
1410 WATERLOO

Par-contre si je regarde dans les détails du contact je retrouve le champs P.B. (bureau) qui lui affiche bien le N° de rue mais qui n'est pas concaténer à l'adresse de la page général.... Sniffff...... Ce qui est impératif pour moi car mon pda synchronise mes contacts Outlook et si ceux-ci sont sans N° de rue cela pose problème pour mon logiciel de navigation lier à l'appareil et qui ne reconnait pas l'adresse et nécessite dans ce cas un encodage manuel.

Voilà j'espère vraiment que tu puisses m'apporter la solution et t'en remercie encore d'avance !!!

10000000...... Merci !!!

Réponse n° 5	par 3Stone le 04/06/2009 : 14:39
Bonjour, Dans ce cas, pourquoi ne le concatène tu pas du coté Access ? If Not IsNull(Me.AdresseLivr) Then .BusinessAddressStreet = AdresseLivr & "," & NoBteLivr End If Cordialement, Pierre(3stone)