Mails et Excel

Gillou · 24 Février 2005

Bonjour à toutes et à tous,
j`aimerai faire de l´envoie de mail automatique par macro.
Dans une feuille excel j´ai toutes les données stockées qui permettent d´envoyer ce mail (adresse à qui envoyer (A et cc), Objet, pièce jointe, message, signature et tout et tout). Cet envoie devra ce faire lorsque je clique sur un boutton. Tout est fait et configuré sauf la partie purement mail car je sais pas du tout comment faire. Quelqu´un ou quelqu´une aurait il un tuyau????
Merci d´avance car je suis un peu en galère
Gillou

JPM · 24 Février 2005

Bonjour à toutes et à tous,

Si ton client de messagerie est Outlook, je peux peut-etre t'aider !
Merci de me le faire savoir

Jean-Pierre

_Thierry · 24 Février 2005

Bonjour Gillou, le Forum

Tu ne précises pas si tu travailles avec Outlook (d'Office) pas Outlook Express...

Voici un extrait d'une Méthode pour Outllook 2000 / XP 2002-2003 que j'utilise professionnellement depuis des années... (Désolé je bosse en anglais)

Méthode pour Outlook livré avec Office

Code:

Option Explicit
Const FilePathDaily As String = 'I:\\MC_PROD\\Reports\\Daily\\'
Const MailTo As String = 'TheChief@xld.fr; [email]TheSubChief@xld.fr[/email]'
Const MailCC As String = 'TheAccounts@xld.fr; [email]TheStats@xld.fr[/email]; [email]TheCash@xld.fr[/email]'

' NB => Needs Refrerence to Microsoft Outlook XX.0 Object Library via VBA / Tools

Sub TheEmailViaOutLook() '@+Thierry
Dim TheOLapp As Outlook.Application, TheOLitem As Outlook.MailItem
Dim TheMessage As String


TheMessage = 'Good Morning,' & vbCrLf & vbCrLf & _
'= = = This is an automatic generated email = = =' & vbCrLf & vbCrLf & _
'Please find enclosed the Transactions Report for ' & Format(Date, 'DDDD') & ' ' & Format(Date, 'DD/MM/YYYY') & vbCrLf & _
'Best Regards' & vbCrLf & '@+Thierry' & vbCrLf & vbCrLf

Set TheOLapp = CreateObject('Outlook.Application')
Set TheOLitem = TheOLapp.CreateItem(OlMailItem)
    With TheOLitem
        .To = MailTo
        .CC = MailCC
        .Importance = olImportanceNormal
        .Subject = 'Daily Transactions Summary Reports (' & Format(Date, 'YYYY-MM-DD') & ')'
        .Body = TheMessage
        .Attachments.Add FilePathDaily & 'TheFile-' & Format(Date, 'YYYY-MM-DD') & '.xls'
        .Categories = 'Daily-Report'
        .OriginatorDeliveryReportRequested = True
        .ReadReceiptRequested = True
        '.Send '

Message édité par: _Thierry, à: 24/02/2005 12:35

_Thierry · 24 Février 2005

Arf

Il semble qu'il y ait problème sur le Forum pour longueurs de ligne / de code...

Je remets sans fioriture :

Option Explicit
Const FilePathDaily As String = 'I:\\MC_PROD\\Reports\\Daily\\'
Const MailTo As String = 'TheChief@xld.fr; TheSubChief@xld.fr'
Const MailCC As String = 'TheAccounts@xld.fr; TheStats@xld.fr; TheCash@xld.fr'

' NB => Needs Refrerence to Microsoft Outlook XX.0 Object Library via VBA / Tools

Sub TheEmailViaOutLook() '@+Thierry
Dim TheOLapp As Outlook.Application, TheOLitem As Outlook.MailItem
Dim TheMessage As String

TheMessage = 'Good Morning,' & vbCrLf & vbCrLf & _
'= = = This is an automatic generated email = = =' & vbCrLf & vbCrLf & _
'Please find enclosed the Transactions Report for ' & Format(Date, 'DDDD') & ' ' & Format(Date, 'DD/MM/YYYY') & vbCrLf & _
'Best Regards' & vbCrLf & '@+Thierry' & vbCrLf & vbCrLf

Set TheOLapp = CreateObject('Outlook.Application')
Set TheOLitem = TheOLapp.CreateItem(OlMailItem)
With TheOLitem
.To = MailTo
.CC = MailCC
.Importance = olImportanceNormal
.Subject = 'Daily Transactions Summary Reports (' & Format(Date, 'YYYY-MM-DD') & ')'
.Body = TheMessage
.Attachments.Add FilePathDaily & 'TheFile-' & Format(Date, 'YYYY-MM-DD') & '.xls'
.Categories = 'Daily-Report'
.OriginatorDeliveryReportRequested = True
.ReadReceiptRequested = True
'.Send '

_Thierry · 24 Février 2005

Arf OK Capito !!! 🙂 🙂 🙂

Je reprends :

Code:

Option Explicit
Const FilePathDaily As String = 'I:\\MC_PROD\\Reports\\Daily\\'
Const MailTo As String = 'TheChief@xld.fr; [email]TheSubChief@xld.fr[/email]'
Const MailCC As String = 'TheAccounts@xld.fr; [email]TheStats@xld.fr[/email]; [email]TheCash@xld.fr[/email]'

' NB => Needs Refrerence to Microsoft Outlook XX.0 Object Library via VBA / Tools

Sub TheEmailViaOutLook() '@+Thierry
Dim TheOLapp As Outlook.Application, TheOLitem As Outlook.MailItem
Dim TheMessage As String


TheMessage = 'Good Morning,' & vbCrLf & vbCrLf & _
'= = = This is an automatic generated email = = =' & vbCrLf & vbCrLf & _
'Please find enclosed the Transactions Report for ' & Format(Date, 'DDDD'Â'Â') & ' ' & Format(Date, 'DD/MM/YYYY'Â'Â') & vbCrLf & _
'Best Regards' & vbCrLf & '@+Thierry' & vbCrLf & vbCrLf

Set TheOLapp = CreateObject('Outlook.Application'Â'Â')
Set TheOLitem = TheOLapp.CreateItem(OlMailItem)
    With TheOLitem
        .To = MailTo
        .CC = MailCC
        .Importance = olImportanceNormal
        .Subject = 'Daily Transactions Summary Reports (' & Format(Date, 'YYYY-MM-DD'Â'Â') & 'Â'Â')'
        .Body = TheMessage
        .Attachments.Add FilePathDaily & 'TheFile-' & Format(Date, 'YYYY-MM-DD'Â'Â') & '.xls'
        .Categories = 'Daily-Report'
        .OriginatorDeliveryReportRequested = True
        .ReadReceiptRequested = True
        '.Send 'TO SEND DIRECTLY
        .Display 'TO SEE THE MAIL FIRST
    End With
      
Set TheOLapp = Nothing
Set TheOLitem = Nothing
End Sub

Ce devrait être OK maintenant....

En fait dans 'TO SEND DIRECTLY', il y avait une dizaine de '... signes INFERIEUR'...

Même pas je peux en mettre un là lol

Bon App
@+Thierry

Message édité par: _Thierry, à: 24/02/2005 12:41

Gillou · 24 Février 2005

Re coucou,
il s´agit bien de Outlook.
merci pour vos réponse je vais les tester de suite.
si vous avez d´autres solution allez y.
Merci encore
😉

Gillou · 24 Février 2005

Désoé Thierry mais j´ai un petit pb.
Apparement il y a des choses dont je n´ai pas besoin car toutes les imfos du mails sont dans des cellules mais bon je vais essayer de me débrouiller
. Par contre j´ai une erreur qui se génère : type défini par l´utilisateur non défini( sur la ligne Dim theOLapp...). Tu vas dire que je suis nul mais c´est vrai...
Merci d´avance pour ta réponse
Gillou

MichelXld · 24 Février 2005

bonjour Gillou et José , rebonjour, @+Thierry et Jean-Pierre

as tu activé la référence Microsoft Outlook xx.x Object Library ?
dans l'editeur de macros :
Menu outils
references
coches la ligne 'Microsoft Outlook xx.x Object Library'
cliques sur OK pour valider

bonne soiree
MichelXld

Gillou · 24 Février 2005

NICKEL BORDEL ça marche super bien super super merci à tous.
Je pourrais montrer ça à mes tuteurs demain matin.
Merci encore
Gillou

@nono · 26 Février 2005

Bonjour à tous

tite qestion pour _Thierry 🙂 : pour supprimer le msg de confirmation d'envoi de mail que demande outlook ?... tu connais la clef de registre à modifier / ajouter / supprimer ? 🙂

parce que j'ai réussi à faire des macros qui fonctionnent impec pour envoyer les mails... par contre outlook demande confirmation à chaque mail envoyé... moyen ^^

J'ai déjà posté sur le sujet il y a très longtemps, mais je n'ai jamais trouvé le truc...

merci de ton aide si tu connais la solution 🙂

MichelXld · 26 Février 2005

bonjour Nono

j'espere que ce lien pourra t'aider

Lien supprimé

bon apres midi
MichelXld

Moonseb · 11 Juillet 2005

Bonjours à tous,

Moi je voudrais faire la meme chose mais le contenu du message je doit le trouver dans une plage de cellule appellé liste.

Est-ce possible ????

rcgozer · 26 Septembre 2005

salut essaie se code

On Error Resume Next
Dim Mail As MailSender
Dim Subj As String
Subj = Range('i18')
Set Mail = New MailSender
Mail.Host = 'smtp1.sympatico.ca'
Mail.Port = 25
Mail.From = ' xxxxxx '
Mail.AddAddress ' xxxxxxxxxx'
Mail.Body = 'PH distribution trop élevé =' & Subj

Mail.Send

renplace les xx par tes adresses

rcgozer · 26 Septembre 2005

salut essaie se code

On Error Resume Next
Dim Mail As MailSender
Dim Subj As String
Subj = Range('i18')
Set Mail = New MailSender
Mail.Host = 'smtp1.sympatico.ca'
Mail.Port = 25
Mail.From = ' xxxxxx '
Mail.AddAddress ' xxxxxxxxxx'
Mail.Body = 'PH distribution trop élevé =' & Subj

Mail.Send

renplace les xx par tes adresses

Mails et Excel

Gillou

Guest

JPM

Guest

_Thierry

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

Gillou

Guest

Gillou

Guest

MichelXld

XLDnaute Barbatruc

Gillou

Guest

@nono

Guest

MichelXld

XLDnaute Barbatruc

Moonseb

Guest

rcgozer

XLDnaute Nouveau

rcgozer

XLDnaute Nouveau

Discussions similaires

Mails et Excel

Gillou

Guest

JPM

Guest

_Thierry

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

Gillou

Guest

Gillou

Guest

MichelXld

XLDnaute Barbatruc

Gillou

Guest

@nono

Guest

MichelXld

XLDnaute Barbatruc

Moonseb

Guest

rcgozer

XLDnaute Nouveau

rcgozer

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency