Envoi fichier par mail
Bonjour,
Je suis nouveau dans ce forum et j'a vraiment besoin d'aide.
J'ai utilisé le VBA "exemple pour envoi pour envoi auto" qui est super bien pour un novice comme moi, j'ai juste une question, l'image qui est dans mon mail est encadrée, et je ne souhaite pas qu'elle le soit! Comment puis-je enlever ce cadre?
Attention, je suis vraiment très débutant! J'ai trois modules dans mon VBA, les voici ci-dessous.
Modules 1
Sub My_Mail_Sheet()
' Don't forget to copy the function RangetoHTML in the module.
' Working in Office 2000-2007
Dim fich As String
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Dim retour
Dim simage$
simage = "monimage.jpg"
retour = ExportRangeAsImage(ActiveSheet, [A1:I66], ThisWorkbook.Path & "\" & simage)
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.createitem(0)
With OutMail
.To = [K14] & ";" & [K15] & ";" & [K16] ' "monemail@laposte.net"
.CC = [M14] & ";" & [M15]
.BCC = ""
.Subject = [N1]
.Attachments.Add ThisWorkbook.Path & "\" & simage, 1, 0
.HTMLBody = "<BODY><IMG src=""cid:" & simage & """ width=1100> </BODY>"
.Display
'.send
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Sub test()
Dim retour
retour = ExportRangeAsImage(ActiveSheet, [A1:I66], ThisWorkbook.Path & "\monimage.jpg")
End SubModule 2
Function ExportRangeAsImage(ws As Worksheet, _
rng As Range, _
sFile As String) As Boolean
Dim oChart As ChartObject
On Error GoTo Error_Handler
Application.ScreenUpdating = False
ws.Activate
rng.CopyPicture xlScreen, xlPicture 'Copy Range Content
Set oChart = ws.ChartObjects.Add(0, 0, rng.Width, rng.Height) 'Add chart
oChart.Activate
With oChart.Chart
.Paste 'Paste our Range
.Export sFile, "JPG" 'Export the chart as an image
End With
oChart.Delete 'Delete the chart
ExportRangeAsImage = False
Error_Handler_Exit:
On Error Resume Next
Application.ScreenUpdating = True
If Not oChart Is Nothing Then Set oChart = Nothing
Exit Function
Error_Handler:
'76 - Path not found
MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
"Error Number: " & Err.Number & vbCrLf & _
"Error Source: ExportRangeAsImage" & vbCrLf & _
"Error Description: " & Err.Description & _
Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
, vbOKOnly + vbCritical, "An Error has Occurred!"
Resume Error_Handler_Exit
End FunctionModule 3
Ce sont les macros que j'ai créées.
Et pour finir, j'avais une autre question, dès que j'envoie le mail via Excel, j'ai l'image du mail qui vient se coller sur mon PC, pas trop grave, mais un peu pénible, il faut que je la supprime à chaque fois!
Merci encore
Merci d'avance pour votre aide, et bravo pour ce que vous faites, c'est juste révolutionnaire pour des personnes comme moi.
Edit modo : modifié titre du sujet + code placé dans balises de codes
Salut,
J'ai un peu de peine à croire que tu as créé ces macros alors que tu indiques être un débutant.
Afin de recevoir de l'aide, je présume qu'un fichier modèle serait le bienvenu.
Cordialement.
Bonjour Alzu et salut Yvouille !
Quelques remarques au sujet de votre inscription
- Pourriez-vous veiller à mettre votre version Excel dans le profil de votre compte (2016, 2019, 365 ?.... Mac 2011, Mac 2016 ??)
- Lorsque vous postez un code veillez à le mettre en utilisant les balises de code disponible dans le menu en cliquant sur l'icone </> et en collant votre code dans la fenêtre (j'ai corrigé votre post vu que c'est votre premier
- Mettre un titre de sujet en rapport avec votre demande (mettre que vous êtes novice ou très peu connaisseurs de VBA n'apporte rien sur le sujet qui vous concerne)
Si vous ne l'avez pas encore fait, je vous invite vraiment à prendre un peu de temps pour lire ces quelques lignes qui vous aideront dans vos demandes et réponses ainsi que sur les fonctionnalités de ce forum décrites par Sébastien administrateur du site -->
- La charte du forum
- Quelques fonctionnalités du forum à connaître
- Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui vous permettent :
---- de poster un code (</>)
---- de citer une phrase ( ' ')
---- de clôturer un fil lorsque vous en avez terminé (V)
Merci pour votre participation sur le site Excel Pratique
Crdlt
Bonjour et Merci @Dan, effectivement je suis passé à côté de tout ça!
@Yvouille, je te confirme être un débutant, comme précisé dans mon message, j'ai récupéré tous ces codes dans ce forum que j'ai remercié au passage!
Bon, je n'ai quand même pas ma réponse, je vais patienter
Re,
Bon, je n'ai quand même pas ma réponse, je vais patienter
Alors vous allez patienter tous les deux -->
Vous pour avoir une solution et Yvouille qui vous suggère très justement d'avoir un fichier...
Salut Dan et merci pour ton intervention.
Je voudrais juste préciser que pour moi, il n'y a rien qui presse
Bonjour Dan,
Evidemment, j'avais bien compris et c'était un Joke
Donc, encore merci
La plaisanterie (joke en français), c'est moi qui l'ai faite.
Dan était très sérieux : Pas de fichier, pas de réponse.