Lien dans corps de mail VBA

**rom1deh** · 22/01/2016, 15h29

Bonjour à tous,

J'ai crée via VBA un envoi de mail celui-ci effectuais très bien.
Depuis l'ajout du lien si ma boite mail est pas ouverte ou celui du destinataire ma macro ne fonctionne plus que faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub SendMailData()
 
Dim MonOutlook As New Outlook.Application
Dim MonMessage As Object
Dim MyBench As String
Dim ID As String
Dim Shortcut As String
Shortcut = "\\H61sys\essais$\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel"
Call SaveInBDD1
 
'ID = Sheets("Fiche d'intervention").Range("N1").Value
MyBench = Sheets("Fiche d'intervention").Range("I10").Value
 
  Set MonOutlook = New Outlook.Application
  Set MonMessage = MonOutlook.createitem(olMailItem)
  MonMessage.To = "romain.dehan@poclain.com"
  MonMessage.cc = ""
  MonMessage.Subject = "Demande d'intervention maintenance"
  ' Le corps du message est divisé en 2 lignes :
  'Corps = "Bonjour Christophe,"
  ' Chr(13) & Chr(10) = Touche ENTER
  'Corps = Corps & Chr(13) & Chr(10)
  'Corps = Corps & Chr(13) & Chr(10)
  'corps = corps & "Je vous transmets la demande d'intervention pour le banc d'essai: " & MyBench & " et le numéro d'intervention:" & ID & " ainsi que le lien d'accès pour la fiche d'intervention" & _
  vbLf & "file:" & Replace(Shortcut, " ", "%20") & ""
    'corps = Shortcut
  MoMessage.body = "file:" & corps
  MonMessage.send
 
  Set MonOutlook = Nothing
Workbooks("Archivage fiche d'intervention maintenance").Close False
 
End Sub

Cordialement

**lebarj** · 22/01/2016, 17h07

Ajoute un peu de ponctuation et quelques mots, on te comprendra mieux

Quelle erreur est générée par vba quand tu lances cette macro ?
Autre question : si tu n'utilises shortcut qu'à un endroit pourquoi t'embêter avec un replace ? Mieux vaut écrire ton shortcut directement avec les %20. Tu as testé cette façon de faire ? (je vois pas ce q ça change vu que c'est une string dans ton corps de texte, mais bon, sait-on jamais)

**rom1deh** · 23/01/2016, 02h03

j'ai essayer de plusieurs manière mais si je met un lien dans mon mail.

Si ma boite mail est ouverte pas de soucis le mail s'envoi et le lien fonctionne.

Mais si ma boite mail est fermer celui ci bug et reste bloquer a l'étape Send.Mail.

la version que je propose c'est le dernier essais que j'ai essayer mais sans être concluant.

donc je viens vers vous pour savoir comment écrire le lien hypertexte pour que celui ne bloque pas la macro si la boite mail du destinataire est pas ouverte.

**rom1deh** · 19/04/2016, 10h25

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Dim MonOutlook As Object
Dim MonMessage As Object
Dim MyBench As String
Dim NumberOfIntervention As String
Dim Description_du_dysfonctionnement As String
 
Fichier = "H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance 2016.xlsm"
ThisWorkbook.SaveAs Fichier
 
MyBench = Sheets("Fiche d'intervention").Range("I10").Value
NumberOfIntervention = Sheets("Fiche d'intervention").Range("N1").Value
Description_du_dysfonctionnement = Sheets("Fiche d'intervention").Range("C19").Value
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  MonMessage.BodyFormat = 2
       Corps = "<HTML><BODY>"
         MonMessage.To = "<>"
  MonMessage.CC = "<>"
 MonMessage.Subject = "Demande d'intervention maintenance"
  ' Le corps du message est divisé en 2 lignes :
Corps = Corps & ","
  ' <p> = Touche ENTER
Corps = Corps & "<p>"
   Corps = Corps & "<p> Voici la demande d'intervention pour le " & "<b>" & MyBench & "</b>" & " ainsi que le numéro d'intervention " & "<b>" & NumberOfIntervention & "</b></p>"
   Corps = Corps & "<p> Voici le problème rencontré : " & "<b>" & Description_du_dysfonctionnement & "</b>"
  Corps = Corps & "[COLOR="#FF0000"]<p><a href=""H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance 2016.xlsm"">lien vers l'interface maintenance</a></p>"
  Corps = Corps & "</BODY></HTML>"
  MonMessage.HTMLBody = Corps
  MonMessage.Display
 
  Set MonOutlook = Nothing
 
Workbooks("Archivage fiche d'intervention maintenance 2016").Close False
End If
 
End Sub

c'est la partie HTML qui permet de généré le lien dans le corps de mail

donc en résumé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Corps = "<HTML><BODY>"
  ' Le corps du message est divisé en 2 lignes :
  ' <p> = Touche ENTER
Corps = Corps & "<p>"
   Corps = Corps & "<p> Voici la demande d'intervention pour le " & "<b>" & MyBench & "</b>" & " ainsi que le numéro d'intervention " & "<b>" & NumberOfIntervention & "</b></p>"
   Corps = Corps & "<p> Voici le problème rencontré : " & "<b>" & Description_du_dysfonctionnement & "</b>"
  Corps = Corps & "[COLOR="#FF0000"]<p><a href=""H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance 2016.xlsm"">lien vers l'interface maintenance</a></p>"
  Corps = Corps & "</BODY></HTML>"
  MonMessage.HTMLBody = Corps

Lien dans corps de mail VBA

Excel

Vue hybride

Discussions similaires

Partager

Partager