Bonjour le forum
Mon fichier :
En colonne A : mes numéros de dossiers
En colonne B : Le sujet
En colonne C : Le libellé
En colonne D : Qui s'en occupe
En colonne E : Date d'échéance
Pour expédier directement un mail à "QUI S'EN OCCUPE", j'ai récupéré sur ce forum un programme que j'ai adapté:
Sub Envoi_Un_Mail()
Dim Msg As String
Dim Subj As String
Dim URLto As String
Dim Libelle As String
Dim Qui As String
Range("A65536").End(xlUp).Select
NumDoss = ActiveCell.Value 'Numéro du dossier
Subj = ActiveCell.Offset(0, 1).Value 'Sujet
Libelle = ActiveCell.Offset(0, 2).Value 'Libellé
Qui = ActiveCell.Offset(0, 3).Value 'Qui fait?
Echeance = ActiveCell.Offset(0, 4).Value 'Date d'échéance
Msg = Msg & "Dossier N° " & NumDoss & " " & Libelle & " Echéance : " & Echeance
If Qui = "TOTO" Then
URLto = "mailto:toto@test.fr" & "?subject=" & Subj & "&body=" & Msg
End If
If Qui = "TATA" Then
URLto = "mailto:tata@test.fr" & "?subject=" & Subj & "&body=" & Msg
End If
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
J'ai 2 questions à soumettre à votre sagacité :
1) Si TOTO est destinataire, comment insérer une copie à TATA?
2) Comment insérer des retours à la ligne dans le mail (après "Dossier N° 001" et après "Libelle")?
Merci d'avance !
Mon fichier :
En colonne A : mes numéros de dossiers
En colonne B : Le sujet
En colonne C : Le libellé
En colonne D : Qui s'en occupe
En colonne E : Date d'échéance
Pour expédier directement un mail à "QUI S'EN OCCUPE", j'ai récupéré sur ce forum un programme que j'ai adapté:
Sub Envoi_Un_Mail()
Dim Msg As String
Dim Subj As String
Dim URLto As String
Dim Libelle As String
Dim Qui As String
Range("A65536").End(xlUp).Select
NumDoss = ActiveCell.Value 'Numéro du dossier
Subj = ActiveCell.Offset(0, 1).Value 'Sujet
Libelle = ActiveCell.Offset(0, 2).Value 'Libellé
Qui = ActiveCell.Offset(0, 3).Value 'Qui fait?
Echeance = ActiveCell.Offset(0, 4).Value 'Date d'échéance
Msg = Msg & "Dossier N° " & NumDoss & " " & Libelle & " Echéance : " & Echeance
If Qui = "TOTO" Then
URLto = "mailto:toto@test.fr" & "?subject=" & Subj & "&body=" & Msg
End If
If Qui = "TATA" Then
URLto = "mailto:tata@test.fr" & "?subject=" & Subj & "&body=" & Msg
End If
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
J'ai 2 questions à soumettre à votre sagacité :
1) Si TOTO est destinataire, comment insérer une copie à TATA?
2) Comment insérer des retours à la ligne dans le mail (après "Dossier N° 001" et après "Libelle")?
Merci d'avance !