XL 2016 Fiche Accueil Téléphone

[laurentriv]

Bonjour,
J'aimerai avoir un fichier qui me permette d'enregistrer tous les appels entrant et de pouvoir rediriger si besoin par un envoi de mail le contenu de l'appel. dans une base annexe un liste des personnes avec leur mail , l'objet de l'appel , l'heure appel la durée, etc...
Si quelqu'un a déjà ça évite d’écrire sur un cahier (méthode 1950) et de pouvoir être sur que la personne a bien été averti en fonction de l'urgence de l'appel.

Merci beaucoup

 

[Lone-wolf]

Bonjour Laurent

Avec une petite recherche sur le Net tu aurais trouvé ceci: téléphones

Mais je ne sais pas si c'est vraiment ça que tu veux. Et si j'ai bien compris, tu veux avoir le classeur avec toute une liste de noms??

 

[laurentriv]

Bonjour, C'est une demande que j'avais faite sur ce forum mais le fichier qui m'a été proposé ne correspond pas vraiment il faudrait en fait que je puisse redonner mon cahier des charges si je puis dire (dans ce fichier de ce forum on ne peut pas envoyer de mail lors d'un appel..)

 

[Lone-wolf]

Et bien il te suffit d'ajouter la macro pour l'envois d'email et tu rajoute un boutton ou un condition pour l'appel de la macro. En voilà une à mettre dans un module standard et à modifier selon ton fichier.

Exemple avec condition: If xxxx <> "" Then Call Envoi_Mail

Sub Envoi_Mail()
Dim olApp As Object
Dim olMail As Object
Dim StrBody As String


Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)

StrBody = "Bonjour Monsieur," & vbCrLf & "Vous avez un nouveau message !"

With olMail
      .To = ""
      .CC = ""
      .Subject = "Message rappel"
      .Body = StrBody
      .Display
   End With

    Set olMail = Nothing
    Set olApp = Nothing
End Sub