Envoi message via Thunderbird

Question

Je recherche comment via une macro Excel (Visual Basic) générer automatiquement un message via la messagerie Thunderbird.

Je sais le faire vers Outlook voir code ci-dessous, que dois-je changer pour pointer vers Thunderbird

Sub Creer_mail_livraison()

Dim myOlApp     As Object
Dim myItem        As MailItem
Dim fys               As Object             ' sert à gérer l'existence du fichier
Dim fl                 As Variant             ' feuille livraison en cours
Dim ft                 As Variant             ' feuille technique qui contient les éléments du mail
Dim rep              As String               ' répertoire de la livraison
Dim Contenu      As String               ' nom du fichier du contenu de la livrasion
Dim bl                As String               ' nom du BL
Dim nb_sfr         As Integer             ' nombre de réponse aux SFR jointes
Dim i                 As Integer '
Dim fbl             As Variant
Dim idtKO       As Boolean

' initialisation
Set fys = CreateObject("Scripting.FileSystemObject")
Set fl = ActiveSheet
Set ft = Sheets("Technique")

' création du répertoire
rep = fl.Cells(9, 2).Text

' test si le contenu de la livraison existe déjà
Contenu = fl.Cells(10, 2).Text
If Not fys.fileexists(rep + Contenu) Then
     MsgBox ("Le contenu de la livraison n'a pas été encore généré")
        Exit Sub
End If

' test si le bon de la livraison existe déjà
bl = fl.Cells(11, 2).Text
If Not fys.fileexists(rep + bl) Then
     MsgBox ("Le bon de livraison n'a pas été encore généré")
        Exit Sub
End If

' Preparation du Mail et Envoi
  Set myOlApp = CreateObject("Outlook.Application")
  Set myItem = myOlApp.CreateItem(olMailItem)
  
  ' sujet principal
    myItem.Subject = "Livraison " + fl.Cells(1, 2).Text + " Version " + ThisWorkbook.Sheets("Version").Cells(5, 2).Text
 
  ' pieces jointes
   '     1) bon de livraison
    myItem.Attachments.Add rep + bl
  '     2) contenu de la livraison
    myItem.Attachments.Add rep + Contenu
  '     3) réponse SFR
    nb_sfr = Joindre_reponse_SFR(myItem, rep)
  
  ' Destinatiaire
    myItem.To = ft.Cells(61, 3).Text
  
  ' copy
    myItem.CC = ft.Cells(62, 3).Text
  
  ' texte du message
  '     partie 1
    myItem.Body = ft.Cells(63, 3).Text
  '     partie 2 si présence SFR
    If nb_sfr = 1 Then
        myItem.Body = myItem.Body + " - " + CStr(nb_sfr) + " Réponse à une SFR"
    End If
    If nb_sfr > 1 Then
        myItem.Body = myItem.Body + " - " + CStr(nb_sfr) + " Réponses à des SFR"
    End If
   '     partie 3
     myItem.Body = myItem.Body + ft.Cells(64, 3).Text
  
' affichage du mail
    myItem.Display
    
End Sub
E.Moreau

ShareVB · Answer

salut,

regarde cela et les quelques liens données par cette page :
http://kb.mozillazine.org/Calling_Thunderbird_from_other_programs

il semble que ce na soit pas une bonne idée de scripter Thunderbird car l'user aura toujours à cliquer sur Send...

ShareVB

Envoi message via Thunderbird

1 réponse

Votre réponse

Discussions similaires