[Access] Enregistrement dans table liée Outlook !

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Access] Enregistrement dans table liée Outlook !

thekingsky

:hello:

Dans mon projet sous access j'ai lié une table de contact partagé qui est à la base dans outlook.
Quand je l'ouvre il y à pas mal de champ dedant et j'ai remarqué que pour que le contact que je veux créer à partir d'un formulaire et enregistrer dans cette table il faut que je remplisse le Champ "Fichier Sous" afin de voir ce champ affiché en en-tête gras sur le contact dans outlook.
Mais le problème c'est que quand il me crée un contact comme cela à partir de access, dans outlook je le vois bien dans la liste de contact mais c'est un objet Discussion ! et non Contact comme normalement.

Quel champ dois-je remplir pour que outlook le considère bien comme un contact et l'affiche en tant que tel svp ?

merci

Publicité

thekingsky

l'enregisterment marche :

Code :

Dim myOlApp As New Outlook.Application
Dim myNameSpace As NameSpace
Dim myFolder, myFolders, myContactFolder As MAPIFolder
Dim myNewContact As Outlook.ContactItem
Set myOlApp = CreateObject("Outlook.Application" )
Set myNameSpace = myOlApp.GetNamespace("MAPI" )
Set myFolder = myNameSpace.Folders("Dossiers publics" )
Set myFolders = myFolder.Folders("Favoris" )
Set myContactFolder = myFolders.Folders("Contacts logicarch" )
Set myNewContact = myContactFolder.Items.Add(olContactItem)
With myNewContact
.FirstName = Me.sf_contact!CON_PRENOM
.LastName = Me.sf_contact!CON_NOM
If Not IsNull(Me.sf_contact!CON_MAIL) Then
.Email1Address = Me.sf_contact!CON_MAIL
End If
.CustomerID = Me.sf_contact!CON_ID
.BusinessTelephoneNumber = Me.sf_contact!CON_TEL
If Not IsNull(Me.sf_contact!CON_FAX) Then
.BusinessFaxNumber = Me.sf_contact!CON_FAX
End If
If Not IsNull(Me.sf_contact!CON_PORTABLE) Then
.MobileTelephoneNumber = Me.sf_contact!CON_PORTABLE
End If
.CompanyName = Me.SOC_NOM
If Not (IsNull(Me.sf_contact!CON_ADRESSE1) Or IsNull(Me.sf_contact!CON_ADRESSE2)) Then
.MailingAddressStreet = Me.sf_contact!CON_ADRESSE1 & " " & Me.sf_contact!CON_ADRESSE2
End If
.FileAs = Me.SOC_NOM & "(" & Me.sf_contact!CON_NOM & ", " & Me.sf_contact!CON_PRENOM & " )"
If Not IsNull(Me.sf_contact!CON_VILLE) Then
.MailingAddressCity = Me.sf_contact!CON_VILLE
End If
.Save
End With
MsgBox "Contact Ajouté"
Set myOlApp = Nothing

3

mais je n'est même pas besoin de lier ma table outlook dans access

Mais now le problème c'est de ajouter le contact que si il n'y est pas déjà ou sinon le mettre à jour ... :??:

thekingsky

Ca marcheeeee :
Voici mon code si ca peut aider quelqu'un :
Je prend des infos dans un formulaires pour allé chercher le contact à supprimer

Code :

Dim myolApp As New Outlook.Application
Dim myNameSpace As NameSpace
Dim myFolder, myFolders, myContactFolder As MAPIFolder
Dim myNewContact As Outlook.ContactItem
Dim sFilter As String
Dim strPrompt As String
sFilter = "[FileAs]= " & Chr(34) & Me.SOC_NOM & "(" & Me.sf_contact!CON_NOM & ", " & Me.sf_contact!CON_PRENOM & " )" & Chr(34)
Set myolApp = CreateObject("Outlook.Application" )
Set myNameSpace = myolApp.GetNamespace("MAPI" )
Set myFolder = myNameSpace.Folders("Dossiers publics" )
Set myFolders = myFolder.Folders("Favoris" )
Set myContactFolder = myFolders.Folders("Contacts logicarch" )
Set myNewContact = myContactFolder.Items.Find(sFilter)
If Not TypeName(myNewContact) = "Nothing" Then
strPrompt = "Est-te vous sûre de vouloir supprimer " & Me.sf_contact!CON_CIVILITE & " " & Me.sf_contact!CON_NOM & " " & Me.sf_contact!CON_PRENOM
If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
myNewContact.Delete
MsgBox ("Contact Supprimé" )
End If
Else
MsgBox "Le contact doit être créé dans la liste de contact Outlook avant de vouloir le supprimer", vbExclamation
End If

FORUM HardWare.fr

Programmation

SQL/NoSQL

[Access] Enregistrement dans table liée Outlook !

Sujets relatifs
[Access] Déploiement avec les Runtimes 2000	VBA Access probleme de renvoi
VBA Access porbleme méthode objet	Access - Liste déroulantes Dépendantes ...
[VB sous Access] Reload un sous formulaire suite modif d'un autre	Probléme avec script pour modifier une table Mysql
[résolu] Champs nommé COUNT dans une table paradox	[Access] Pb avec fonction Date et MsgBox Error$
Ouvrir et sauvegarder une base access en vb	[Access] update de toute les colonnes si...
Plus de sujets relatifs à : [Access] Enregistrement dans table liée Outlook !

Page générée en 0.066 secondes