AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 02 09:53:13
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

COMMUNIQUER AVEC OUTLOOK


Information sur la source

Catégorie :Tutoriaux Niveau : Débutant Date de création : 21/07/2003 Date de mise à jour : 30/08/2004 19:53:27 Vu : 13 011
Auteur : dragon Site perso
Ecrire un message privé
Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

Description

permet d'envoyer des courriel ou des task par outlook
présentement configurer pour des task, juste à changer cette ligne là : Set objItem = objOLApp.CreateItem(olTaskItem)

oublierz pas de référencier outlook (je sais pas si ça marche avec outlook express)
 

Source

  • Public Function AssignTask(personne as string, jour as date, sujet as string, texte as string)
  • Dim objOLApp As Outlook.Application
  • Dim objItem As Outlook.TaskItem
  • Dim objRecipient As Outlook.Recipient
  • Set objOLApp = CreateObject("Outlook.Application")
  • Set objItem = objOLApp.CreateItem(olTaskItem)
  • With objItem
  • .Assign
  • Set objRecipient = .Recipients.Add(personne )
  • .DueDate = jour
  • .Subject = sujet
  • .body = texte
  • .Send
  • End With
  • Set objItem = Nothing
  • Set objOLApp = Nothing
  • End Function 
Public Function AssignTask(personne as string, jour as date, sujet as string, texte as string)

Dim objOLApp As Outlook.Application
Dim objItem As Outlook.TaskItem
Dim objRecipient As Outlook.Recipient

Set objOLApp = CreateObject("Outlook.Application")
Set objItem = objOLApp.CreateItem(olTaskItem)

    With objItem
            .Assign

            Set objRecipient = .Recipients.Add(personne )
    
            .DueDate = jour
            .Subject = sujet 
            .body = texte
            .Send
    End With
    
Set objItem = Nothing
Set objOLApp = Nothing
    
    End Function

Historique

30 août 2004 19:53:27 :
correction de français

Commentaires et avis

signaler à un administrateur
Commentaire de Frank339 le 22/07/2003 13:57:29

pour moi aucun problème, mais peux tu mettres un zip ?

signaler à un administrateur
Commentaire de dragon le 22/07/2003 14:22:56

il y a pas de zip, c,est une méthode à mettre dans un module qui reçoi les valeurs en paramètre

il y a pas d'interface, ni rien de tout ça

signaler à un administrateur
Commentaire de surfzoid le 17/10/2005 19:00:05

salut
j ai repris ton principe mais pour les contacts outlook
pour l instant l ajout sous vb.net donne ça:
    Public Function AssignTask(ByVal personne As String, ByVal jour As Date, ByVal sujet As String, ByVal texte As String)

        Dim objOLApp As Outlook.Application
        Dim objItem As Outlook._ContactItem
        Dim objRecipient As Outlook.ContactItem

        objOLApp = CreateObject("Outlook.Application")
        objItem = objOLApp.CreateItem(Outlook.OlItemType.olContactItem)

        With (objItem)
            .FullName = "zztest"
            .Email1Address = "zz@test.com"
            .Save()
        End With

        objItem = Nothing
        objOLApp = Nothing

    End Function

mais je but dejas sur un probleme qui est les sous dossiers de mon dossier contacts
en suite il suffira de rajouter dans l onglet champs une "id" unique un peut comme sur une base de données et on obtient la possibilité d un carnet partagé ou syncronisé sur son reseau local

signaler à un administrateur
Commentaire de surfzoid le 17/10/2005 19:02:28

dsl j ai oublier d enlever la ligne Dim objRecipient As Outlook.ContactItem
et de dire aussi que c est hyper chaud de trouver de la doc, dans les tooltips lors d une survol par exemple de "Outlook._ContactItem" y a nada comme aide on ait vraiment obliger de tout deviner

signaler à un administrateur
Commentaire de schumileboss le 17/07/2006 17:57:58

J'ai mis la première fonction dans ma page. Mais vs2003 souligne tous les Outlook.* en me disant que le type n'est pas défini.
Il n'y a pas un namespace à ajouter?

Merci
mickael

signaler à un administrateur
Commentaire de dragon le 17/07/2006 18:26:03

t'as pas référencier Outlook

signaler à un administrateur
Commentaire de schumileboss le 18/07/2006 09:38:36

Et comment je fait pour le référencier?

Merci

signaler à un administrateur
Commentaire de dragon le 18/07/2006 23:41:48

où que je suis il est pas installer, donc je vais te dire les termes de mémoire

en VB6.0, tu dois faire Ctrl + T
Sous access, ouvre un module et dasn les menu ça s'appel références
Sous Vb.net, dans ta liste de fichier, tu as référence en haut complètement

signaler à un administrateur
Commentaire de schumileboss le 24/07/2006 09:51:32

Merci j'ai réussi.
Bonne journée

signaler à un administrateur
Commentaire de ManuAntibes le 28/06/2007 08:41:21

Salut

j'ai ce message d'erreur avec Visual Basic 2005 express.
Sur la ligne de code  "objItem = objOLApp.CreateItem(Outlook.OlItemType.olContactItem)"

Impossible d'effectuer un cast d'un objet COM de type 'System.__ComObject' en type d'interface 'Microsoft.Office.Interop.Outlook.TaskItem'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{00063035-0000-0000-C000-000000000046}' a échoué en raison de l'erreur suivante : Cette interface n'est pas prise en charge (Exception de HRESULT : 0x80004002 (E_NOINTERFACE)).

Que dois je faire ??
Merci

signaler à un administrateur
Commentaire de dragon le 28/06/2007 15:30:19

ce n'est pas un code .Net tout simplement
tu peux faire dequoi de semblable,mais tu devras adapter.

.Net permet de recevoir des référence COM, donc il ne devrait pas avoir de problème de ce côté.

Mais, je n'ai plus retouché à Outlook depuis longtemps

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,218 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.