mail automatique avec microsoft outlook

[chinel]

Salut tout le monde !

avec Microsoft Outlook
je voudrais mettre un code pour envoyer ma feuille excel par mail
sans tous les contrôles (macro,commandbutton,..)
ne pas ouvrir le logiciel de mail envoyer directement à la personne qui se trouveras dans le code
puis je mettre le code devant le code ci dessous ?

Sheets("sauvegarde planning").Unprotect
Sheets("planning").Cells.Copy Sheets("sauvegarde planning").Range("A1")
Sheets("sauvegarde planning").Protect
a = MsgBox("Planning enregistré!veux-tu imprimer celui-ci ?", vbYesNo)
If a = vbYes Then
Sheets("sauvegarde planning").Visible = True
Sheets("Sauvegarde planning").Activate
Sheets("planning").Visible = False
End If
If a = vbNo Then
End If
merci de votre aide !
à titre d'information je n'ai rien trouvé ma réponse dans le forum

 

[JNP]

Re : mail automatique avec microsoft outlook

Bonjour Chinel 🙂,
Je ne comprends pas tout. Tu souhaites envoyer un fichier Exel par mail et tu nous mets un code de sauvegarde 😕 ?
Les fils sur l'envoi par Outlook ne manquent pas. Entre autre celui-ci http://www.excel-downloads.com/forum...s-outlook.html qui est récent. Pour l'envoi en direct, ce sont les 2 valeurs suivantes :

         .Send [COLOR=seagreen]'<<<<<<<<<<<<<<<Pour envoyer directement[/COLOR]
[COLOR=seagreen]'         .Display '<<<<<<<<<<<<<Pour voir le mail avant envoi[/COLOR]

qui décident, donc utilise Send et non Display.
A te lire 😎

 

[chinel]

Re : mail automatique avec microsoft outlook

merci JNP !

mais la sauvegarde cela n'est rien


merci quand même !

 

[chinel]

Re : mail automatique avec microsoft outlook

Salut tout le monde !

voici mon code quelqu'un peut-il me remettre de l'ordre dedans car je suis perdu !
je voudrais conserver se code mais je voudrais envoyer le mail à 2 personnes sans ouvrir microsoft outlook (ma messagerie)
merci de votre aide

Private Sub CommandButton1_Click()
'Working in 97-2007
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String

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

Set Sourcewb = ActiveWorkbook
'Suppression des boutons (ActiveX) dans la feuille
'For Each Obj In ActiveSheet.OLEObjects
' If TypeOf Obj.Object Is MSForms.CommandButton Then Obj.Delete
'Next
'Application.DisplayAlerts = False
'ActiveSheet.DrawingObjects.Delete

'Copy the sheet to a new workbook
'ActiveSheet.Copy
Sheets("Planning").Copy
'Sheets("Planning").Copy
'With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
'.DeleteLines 1, .CountOfLines
' End With
'Suppression des boutons (ActiveX) dans la feuille
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.CommandButton Then Obj.Delete
Next
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete
Set Destwb = ActiveWorkbook

'Determine the Excel version and file extension/format
With Destwb
If Val(Application.Version) < 12 Then
'You use Excel 97-2003
FileExtStr = ".xls": FileFormatNum = -4143
Else
'You use Excel 2007
'We exit the sub when your answer is NO in the security dialog that you only
'see when you copy a sheet from a xlsm file with macro's disabled.
If Sourcewb.Name = .Name Then
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
MsgBox "Your answer is NO in the security dialog"
Exit Sub
Else
Select Case Sourcewb.FileFormat
Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
Case 52:
If .HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Case 56: FileExtStr = ".xls": FileFormatNum = 56
Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
End Select
End If
End If
End With

' 'Change all cells in the worksheet to values if you want
' With Destwb.Sheets(1).UsedRange
' .Cells.Copy
' .Cells.PasteSpecial xlPasteValues
' .Cells(1).Select
' End With
' Application.CutCopyMode = False

'Save the new workbook/Mail it/Delete it
TempFilePath = Environ$("temp") & "\"
TempFileName = "" & Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
On Error Resume Next
.SendMail "", _
"Copie du planning de Patrick Jacquet (par Manuel Dejong)"
On Error GoTo 0
.Close SaveChanges:=False
End With

'Delete the file you have send
Kill TempFilePath & TempFileName & FileExtStr

With Application
.ScreenUpdating = True
.EnableEvents = True
End With

End Sub