Conversion Macro VBA Excel fonctionnelle sous Outlook , pour Thunderbird

Bonjour à tous Membres du forum

J'essaie de pouvoir finaliser une macro d'envoi automatique d'un e-mail avec fichier pdf en PJ, qui était totalement fonctionelle sous Outlook; mais que je dois adapter à la messagerie Thunderbird.

Sequoyah et SabV m'ont grandement aidé pour résoudre une bonne majeure partie de cette conversion de code, mais il me reste 3 petits points de détail à régler pour qu'elle soit 100% fonctionnelle (comme elle l'était auparavant pour envoi via Outlook).

Voici le code original que j'utilisai sous Outlook qui était fonctionnel à 100%:

Sub Mail()

Dim Rep As Integer
        yourmsgbox = MsgBox("Avez-vous rempli la totalité des informations nécessaires à votre 'Demande d'Intervention' afin de procéder à l'envoi préliminaire de celle-ci ? ", vbOKCancel + vbExclamation, "Demande de confirmation")
        If yourmsgbox = vbCancel Then
        Exit Sub
        End If
        If yourmsgbox = vbOK Then
        End If

Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim S As Shape
Dim sNomFic As String, sRep As String, WshShell As Object

With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

' Créer une instance Windows Script pour retrouver le chemin du bureau
Set WshShell = CreateObject("WScript.Shell")
sRep = WshShell.SpecialFolders("Desktop")
Set WshShell = Nothing
' Définit le nom du fichier à enregistrer
sNomFic = "Demande d'Intervention.pdf"
' Enregistrer la feuille en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

strHtml = "Bonjour , <BR>"
strHtml = strHtml & "<BR><font size=6mm>" & _
"Vous avez reçu une nouvelle Demande d'Intervention. </font></BR>"
strHtml = strHtml & "<BR><font size=6mm>" & _
"Merci de bien vouloir la prendre en compte. </font></BR>"
strHtml = strHtml & "<BR>" & _
"<font color=black>Bien cordialement.</font>" & "<BR><BR>"
strHtml = strHtml & "<BR>" & _
"<font color=blue>L'équipe Travaux. </font>" & "<BR>"
strHtml = strHtml & "<BR><BR>"
strHtml = strHtml & Environ("UserName")
strHtml = strHtml & ""

Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "xxxxxxxxxxx@xxxxxxxx"
        .Cc = ""
        .Attachments.Add (sRep & "\" & sNomFic)
        .Subject = "Nouvelle demande d'intervention reçue"
        .HtmlBody = strHtml
        .Send
    End With

With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub

Et voici le code actuel (en cours de finalisation) pour envoi sous Thunderbird, pour lequel j'ai encore 3 légers soucis de fonctionnalité

Sub Mail_TB()
Dim sNomFic As String, sRep As String
Dim tTo As String, tCC As String, tBCC As String, tSujet As String, fichier As String
Dim objShell
Set objShell = CreateObject("WScript.Shell")

sRep = ThisWorkbook.Path 'WshShell.SpecialFolders("Desktop")
sNomFic = "Demande_Intervention.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

strHtml = "Bonjour, </font></BR>"
strHtml = strHtml & "<BR>" & _
"Vous avez reçu une nouvelle Demande d'Intervention. </font></BR>"
strHtml = strHtml & "<BR>" & _
"Merci de bien vouloir la prendre en compte. </font></BR>"
strHtml = strHtml & "<BR>" & _
"<font color=black>Bien cordialement.</font>" & "<BR><BR>"
strHtml = strHtml & "<BR>" & _
"<font color=blue>L'équipe Travaux. </font>" & "<BR>"
strHtml = strHtml & "<BR><BR>"
strHtml = strHtml & Environ("UserName")
strHtml = strHtml & ""

tTo = "xxxxxxxxxx@xxxxxxxxxx"
tCC = "xxxxxxxxxxx@xxxxxxxxxxx"
tBCC = "xxxxxxxxx@xxxxxxxxxx"
tSujet = "Nouvelle Demande D'intervention reçue"
fichier = sRep & "\" & sNomFic

objShell.Exec ("%ProgramFiles%\Mozilla Thunderbird\thunderbird.exe -compose" & _
  " preselectid='id1'" & _
  ",to='" & tTo & "'" & _
  ",cc='" & tCC & "'" & _
  ",bcc='" & tBCC & "'" & _
  ",newsgroups=''" & _
  ",subject='" & tSujet & "'" & _
  ",body='" & strHtml & "'" & _
  ",attachment='" & fichier & "'" & _
  ",bodyislink='false'" & _
  ",type='0'" & _
  ",format='1'" & _
  ",originalMsg=''" & _
  "")
  Application.Wait (Now + TimeValue("0:00:03"))
  SendKeys "^{ENTER}", True
Set objShell = Nothing
End Sub

Donc mon 1er souci, est que je n'ai pas réussi à réintégrer la partie "message box" de l'en tête de mon précdent codage sur le nouveau (ça plante, donc je ne l'ai pas intégré sur le nouveau codage pour Thunderbird - 2° Code)

Le 2ème souci, c'est que le fichier pdf qui est généré pour l'envoi automatique du mail , ne s'efface pas automatiquement après l'envoi du mail.

Le 3ème souci, c'est que lorsque la macro s'execute et envoie automatiquement le mail, dès que la fenêtre de dialogue de l'envoi du mail via Thunderbird se ferme, le vrouillage numérique du pavé numérique se désactive tout seul (??)

Voilà, je suis un peu bloqué...

Je fais donc appel à vos aides précieuses que vous pourrez m'apporter afin que cette macro puisse être fonctionelle à nouveau à 100%.

Merci d'avance à tous.

Bonne journée et Vive le forum

Bonjour...

Je refais un petit up...car visiblement, mon sujet n'a pas attiré grande foule, et je suis toujours bloqué au même point.

En vous remerciant pour votre aide et vos retours SVP.

Pb résolu grâce à l'aide de SabV pour une autre question mais qui m'a apporté aussi l'aide à ce pb.

Encore Merci à tous.

Rechercher des sujets similaires à "conversion macro vba fonctionnelle outlook thunderbird"