Communiquer avec outlook

Commenter

Contenu du snippet

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 / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_dragon)