Envoi d'Email automatiquement

Bonjour le forum,

Je vous explique ma problèmatique.

J'ai une application développée sous Excel VBA qui permet de créer des fiches techniques.

On retrouve aussi une base de données dans ce même fichier, chaque fois que qu'une fiche est créée les informations sont stockées dans la base de données sur une ligne entre de la colonne A à la colonne M.

Ce que je voudrais rajouter à cette application c'est l'envoi d'e-mail automatique à deux personnes à chaque fois qu'une nouvelle fiche est générée.

Dans chaque e-mail q'il recevront je veux qu'il y est la dernière ligne de la base de données générée par la nouvelle fiche technique créée.

En pièce jointe je vous ai mis un document world où j'explique mon problème plus en détail et un fichier excel. Il y a un 3 ème fichier excel qui est assez gros que j'enverais dans le message suivi.

Commencer par lire le document word, il y a toutes les explications.

Si ce n'est pas claire, n'hesiter pas à me poser des questions pour plus d'informations.

Merci d'avance pour votre aide.

Amicalement,

Samm.

Voilà comme promis le 3ème fichier .

Amicalement,

Samm

Bonjour Samm

1ère question, quel logiciel de messagerie utilises-tu ?

a+

Merci BrunoM45 d'avoir répondu aussi vite.

Alors la messagerie est IBM.Lotus.iNotes c'est celle du boulot.

Amicalement

Samm

Re,

Ohhhh punaise

Excel 2003 et iNotes, heuuu ben là ça ne va pas être simple car je ne connais pas iNotes

C'est qu'elle version ?

J''en ai aucune idée

Il faut aller où pour connaître la version ?

Re,

Une idée est de créer un classeur avec une feuille contenant l'information souhaitée

Voici le code

    ' Envoyer le fichier par mail
    Dim MailAdr As String
    Dim NewWbk As Workbook
    Dim sWbk As String
    MailAdr = "toto@societe.com;titi@societe.com"
    sWbk = Me.txt_modele_311C.Value & "_" & Me.txt_NumSerie_311C.Value & ".xls"
    Set NewWbk = Workbooks.Add
    NewWbk.SaveAs Chemin & sWbk
    Ws.Rows(1).Copy Destination:=NewWbk.Sheets(1).Range("A1")
    Ws.Rows(Ligne).Copy Destination:=NewWbk.Sheets(1).Range("A2")
    NewWbk.SendMail MailAdr, "Sujet", True

à mettre à la fin de ta procédure

entre

      'Nom de l'utilisateur
      .Range("M" & Ligne) = Application.UserName
    End With

et

  Else
    MsgBox "le fichier est introuvable"
  End If
  Unload Me

A+

Merci d'avoir envoyé cette petite macro mais ça bloque à cette ligne j'ai l'erreur 1004.

NewWbk.SaveAs Chemin & sWbk

Re,

Il faut effectivement que la variable "sWbk" ne contienne pas de caractères interdit pour un nom de fichier

Tu peux la remplacer directement par un nom de fichier souhaité

NewWbk.SaveAs Chemin & "\nomfichier.xls"

A+

Bonjour BrunoM45,

Merci pour l'info, j'ai bien remplacé par un nom de fichier la ligne de code où ça bloqué par :

CheminSauvegarde = WshShell.SpecialFolders("MyDocuments") & Application.PathSeparator

ça fonctionne mais maintenant ça bloque au niveau de la dernière ligne du code :

NewWbk.SendMail MailAdr, "Sujet", True

Est ce que tu vois d'où est ce que le problème pourrais venir stp ?

Amicalement,

Samm

Bonjour le Forum,

Est ce qu'une ame charitable pourrais venir à mon aide ?

Je sèche à mort là

Merci d'avance pour votre aide.

Amicalement Samm

Salut,

As-tu essayé de ne mettre qu'une adresse mail dans la variable MailAdr

A+

Oui j'ai mis que mon adresse e-mail pour tester si ça fonctionne dans un premier temps

Mais ça bloque à la dernière ligne de la macro.

J'ai le message d'erreur suivant :

'Erreur d'exécution 1004'

La méthode 'SendMail' de l'objet '_Workbook' a échoué

J'ai même testé avec une adresse e-mail Outlook mais ça ne fonctionne pas ça bloque toujours à la dernière ligne de la macro.

Bonjour,

J'ai réussi à trouver la version de ma messagerie :

Messagerie IBM Lotus.net version 8.5.3

Ça bloque toujours au niveau de la dernière ligne de la macro, ça fait deux jour que je suis sur ce bout de programme mais rien à faire je n'arrive pas à trouver d'où viens le problème.

Au plaisir de te lire,

Samm

Salut Samm

Comme j'ai l'impression que nous ne nous comprenons pas

Tu trouveras ci-joint ton fichier avec le code adapté à celui-ci

A+

Bonjour Bruno45,

Merci pour le fichier.

J'ai fait exactement ce que tu m'as dit de faire, j'ai aussi testé le fichier que tu m'as envoyé mais ça ne fonctionne pas.

Je suis si proche du but c'est frustrant quand même.

au plaisir de te lire ...

Re,

Je pense que ton logiciel de messagerie (Lotus notes) n'est pas paramétré comme logiciel par défaut

Tu peux voir ça dans Internet Explorer -> Outils -> Options internet -> Programmes

Je ne peux plus rien pour toi, désolé

ok je vais voir si je peux faire autrement.

Merci d'avoir essayer de résoudre mon problème.

J'ai une autre problèmatique, je voudrais qu'a chaque fois qu'une nouvelle fiche est créée, elle soit imprimée en PDF et que la nouvelle fiche excel soit suprimée.

Mon logiciel c'est Visage Expert PDF

J'ai réussi à imprimer avec une macro mais ça m'imprime la page où y a le userform et non la nouvelle fiche.

Au plaisir de te lire

Samm