email outlook express

[paul]

bonjour le forum

jai une petite macro qui marche bien le gros probléme il ouvre microsoft office outlook

p ton ouvrir outlook express
merci pour votre aide

Sub EnvoiEmail()

'Déclaration des variables
Dim ApplicOutlook As Object
Dim ElémentCourrier As Object
Dim cellule As Range
Dim Sujet As String
Dim Email As String
Dim Destinataire As String
Dim mois As String
Dim Msg As String
'Enregistrement du classeur
ActiveWorkbook.Save
'Création de l'objet Outlook
Set ApplicOutlook = CreateObject('Outlook.Application')

'Recherche des déstinataires
For Each cellule In _
Columns('C').Cells.SpecialCells(xlCellTypeConstants)
If cellule.Value Like '*@*' Then
'Extraction des données
Sujet = 'Commande Casino de Bourbon l'Archambault'
Destinataire = cellule.Offset(0, -1).Value
Email = cellule.Value
'mois = Format(cellule.Offset(0, 1).Value)

'Message d'envoi
Msg = 'Madame, ' & Destinataire & vbCrLf & vbCrLf
Msg = Msg & ' '
Msg = Msg & ' '
Msg = Msg & mois & vbCrLf & vbCrLf
Msg = Msg & ''& vbCrLf
Msg = Msg & '' & vbCrLf & vbCrLf
Msg = Msg & '' & vbCrLf
Msg = Msg & '' & vbCrLf
Msg = Msg & '' & vbCrLf
Msg = Msg & ''
'Création du message et envoi
Set ElémentCourrier = ApplicOutlook.CreateItem(0)

With ElémentCourrier
.Attachments.Add ActiveWorkbook.FullName
.To = Email
.Subject = Sujet
.Body = Msg
.Display
.Recipients.Add (Email)
.Send





End With
End If
Next
End Sub

 

[Dull]

Salut Paul, le Forum,

je te conseil les Excellentes pages WIKI de MichelXLD Plus particulièrement la page 3 tu devrais pouvoir trouver ton bonheur

 

[paul]

rebonjour
jai trouve une petite macro qui fait ça bien
mais je voufrai mettre un message dans le mail
merci a vous

Sub EnvoiFeuilMail()
Dim Wbk As Workbook
Dim Dest, Sujt, Msg As String
ThisWorkbook.Sheets('Feuil1').Copy
Set Wbk = ActiveWorkbook
SendKeys '{E}'
Wbk.SendMail 'toto@laposte.fr', 'Feuille du contrat à signer', True

'true pour un avis de reception

Wbk.Close savechanges:=False
Set Wbk = Nothing
End Sub