Problème sur mise en forme d'un mail envoyé par macro

[oveg63]

Bonjour à tous,

je n'arrive pas à finaliser la mise en forme d'un mail envoyé par macro. j'ai plusieurs point sur lesquels je tourne en rond désespérément

Dans le fichier joint :

1ier point :
Si la demande (cellule D4) est "d'absence", "d'absence à RS" ou "de dépassement d'horaire", il faudrait envoyer le mail à toto@xx.fr
Si la demande (cellule D4) est "d'ordre de mission ponctuelle" ou "d'ordre de mission permanente", il faudrait envoyer le mail à tata@xx.fr

2ième point :
sur la ligne message.subject, à la fin, je souhaiterai que ça m'insère le nom de l'onglet actif à la place de semaine 1

3ième point :
pour le message.body, je souhaiterai qu'une première ligne m'insère : cellule A4 + "du" cellule G4 et qu'une 2ième ligne m'insère la variable nom

Merci d'avance pour votre aide

 

[Hippolite]

Re : Problème sur mise en forme d'un mail envoyé par macro

Bonjour,
non testé :

Private Sub CommandButton1_Click()
    Dim outlook, message As Object
    Dim nom As String
    nom = "file:" & ActiveWorkbook.FullName & ""
    Set outlook = CreateObject("outlook.application")
    Set message = outlook.createitem(0)
    Select Case ActiveSheet.Range("C5")
    Case "d'absence", "d'absence à RS", "de dépassement d'horaire"
        message.to = "toto@xx.fr"
    Case "d'ordre de mission ponctuelle", "d'ordre de mission permanente"
        message.to = "tata@xx.fr"
    End Select
    With ActiveSheet
        message.Subject = "Demande " & " " & .Range("D5").Value _
                        & " " & .Range("D1").Value & " " & .Name
        message.body = .Range("A4").Value & " du " & .Range("G4").Value _
                     & Chr(10) & .Range("A1").Value
    End With
    On Error GoTo fin
    message.send
fin:
End Sub

A+

 

[oveg63]

Re : Problème sur mise en forme d'un mail envoyé par macro

Non testé peut être.
Mais en tout cas ça fonctionne parfaitement bien. MERCI

Oups. ça fonctionne très bien sur excel 2007 mais pas sur 2003 🙁 Et il me reste encore quelques PC sur Office 2003

Une solution pour que ça fonctionne sur 2007 et 2003 ??
Au pire si j'ai le code pour 2003, je ferai un fichier spécial excel 2003.

Merci d'avance

 

[Hippolite]

Re : Problème sur mise en forme d'un mail envoyé par macro

Re,

Si tu as besoin de détecter automatiquement la version d'Excel :
Code VB pour connaître version Excel 2003 ou 2007 ou 2010...

Pour l'envoi de mail, regarde si tu trouves ce qu'il te faut ici :
Example Code for sending mail from Excel

A+

 

[oveg63]

Re : Problème sur mise en forme d'un mail envoyé par macro

Merci Hippolite,

je regarde et fais les essais

@+