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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
| Sub Impress_send
'IMPRESSION
Dim maZone As Object, oFeuilleImpression As Object
Dim Props() As New com.sun.star.beans.PropertyValue
Dim adrZones(1) As New com.sun.star.table.CellRangeAddress
Dim oObj As Object , AppOutlook As Object
Dim oMail As Object , oFeuille As Object , oCell As Object
Dim sDestinataire As String
Dim oDoc As Object
oDoc = ThisComponent
oFeuille = oDoc.getSheets.getByName("Impression") 'Nom de la feuille'
oCell = oFeuille.getCellRangeByName("B58")
'Renseigne la cellule avec le mail'
sDestinataire = oCell.String
oFeuilleImpression = ThisComponent.getSheets.getByName("Impression")
Thiscomponent.CurrentController.ActiveSheet = oFeuilleImpression
'Je détermine la zone à imprimer
maZone = oFeuilleImpression.getCellRangeByName("A3:K53")
adrZones(0) = maZone.RangeAddress
oFeuilleImpression.PrintAreas = adrZones()
'J'imprime
ThisComponent.Print(Props())
Rem *** Initialisation du mail *** 'Validation envoi du mail et infos'
Reponse = MsgBox ("Souhaitez-vous envoyer le suivi hebdo à toute l'équipe",132,"Envoi par Email")
If Reponse = 6 then goto Suite
Stop
Suite:
oObj = createUnoService("com.sun.star.bridge.OleObjectFactory")
AppOutlook = oObj.createInstance("Outlook.Application")
oMail = AppOutlook.CreateItem(0)
With oMail
.To = sDestinataire
.Subject = "Suivi EEC"
.Body = "Bonjour l'équipe !"& Chr(13) & Chr(13) & "Voici le suivi" &Chr(10) & Chr(10) & _
"Bonne journée, " & Chr(13) & Chr(13) & "L'équipe Emploi" & Chr(10) & Chr(10)
.send
End With
'Message box impression validée et consignes pour modifier imprimante par défaut'
Print "Suivi Hebdo imprimé et envoyé !" & Chr(13) & Chr(13) & "Pour information l'impression s'est lancée automatiquement sur votre imprimante par défaut. Vous pouvez modifier l'imprimante par défaut dans Calc - Fichier - Paramétrage de l'imprimante"
end sub |