Macro excel 2014 insertion signature OUTLOOK
Fermé
gnioler
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
-
Modifié par Whismeril le 6/01/2015 à 20:02
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 7 janv. 2015 à 10:35
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 7 janv. 2015 à 10:35
A voir également:
- Macro excel 2014 insertion signature OUTLOOK
- Liste déroulante excel - Guide
- Formule excel - Guide
- Signature électronique word - Guide
- Signature gmail - Guide
- Créer un compte outlook - Guide
3 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
7 janv. 2015 à 09:46
7 janv. 2015 à 09:46
Bonjour,
Office 2014 -----> Mac pas PC
a voir
https://www.rondebruin.nl/win/s1/outlook/signature.htm
Office 2014 -----> Mac pas PC
a voir
https://www.rondebruin.nl/win/s1/outlook/signature.htm
gnioler
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
3
7 janv. 2015 à 10:16
7 janv. 2015 à 10:16
bonjour
au fait désolé je me suis trompé c'est office 2013
j'ai regardé le lien que vous m'avez envoyé
mais comme je débute j'ai du mal a corrigé ma macro
merci de votre aide
au fait désolé je me suis trompé c'est office 2013
j'ai regardé le lien que vous m'avez envoyé
mais comme je débute j'ai du mal a corrigé ma macro
merci de votre aide
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
7 janv. 2015 à 10:35
7 janv. 2015 à 10:35
Re,
essayez ceci:
essayez ceci:
Sub PDF()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim pj As String
Dim Corps As String
Dim corp2 As String
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"S:\DEVIS\EN PDF\" & [E10] & " " & [F10] & " " & [N20] & " " & [N21] & " " & [N22] & " " & [N23] & " " & [E13] & " " & [E17] & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False _
pj = "S:\DEVIS\EN PDF\" & [E10] & " " & [F10] & " " & [N20] & " " & [N21] & " " & [N22] & " " & [N23] & " " & [E13] & " " & [E17] & ".pdf"
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
If pj = "Faux" Then Exit Sub
If VarType(pj) = vbBoolean Then Exit Sub
'Change only Mysig.htm to the name of your signature
'Changez seulement Mysig.htm par le nom de votre signature
SigString = Environ("appdata") & _
"\Microsoft\Signatures\Mysig.htm"
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
On Error Resume Next
corp2 = "Bonjour, " & "<br><br>" _
& "vous trouverez ci-joint l'offre de prix" & "<br>" _
& "je reste à votre disposition pour tout renseignement complémentaire. " & "<br>" _
Corps = "<DIV align=left><FONT Size = 4> " & corp2 & " </FONT></DIV>"
With oBjMail
.To = Cells(21, 5).Value
.CC = "defontaine3@wanadoo.fr"
.Subject = "offre de prix FONTES DE PARIS DEFONTAINE "
.Attachments.Add pj
'.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
'signature a la fin
.HTMLBody = Corps & oBjMail.HTMLBody & Signature
.Display
End With
Kill "S:\DEVIS DEFONTAINE\EN PDF\" & [E10] & " " & [F10] & " " & [N20] & " " & [N21] & " " & [N22] & " " & [N23] & " " & [E13] & " " & [E17] & ".pdf"
End Sub
Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function