Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de créer un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet, un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de créer un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet, un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de créer un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet, un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de créer un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet, un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = "dcolardelle@cretin.fr"
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de news:
F3F60DEA-03B1-4071-914F-DC616EA98D40@microsoft.com...
Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de créer un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet, un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de créer un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet, un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet, un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.
Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = "dcolardelle@cretin.fr"
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de news:
F3F60DEA-03B1-4071-914F-DC616EA98D40@microsoft.com...
Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet, un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet, un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" a écrit dans le message de news:Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet, un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = "dcolardelle@cretin.fr"
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de news:
EFC29E12-FFAB-4585-9EDC-B57ED57E0714@microsoft.com...
Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.
Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = "dcolardelle@cretin.fr"
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de news:
F3F60DEA-03B1-4071-914F-DC616EA98D40@microsoft.com...
Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet, un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" a écrit dans le message de news:Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet, un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Bonjour à tous,
Donc voilà, ma macro fonctionne, il ne me reste plus qu'un soucis, c'est
que
l'email part avec l'adresse par défaut de Outlook (la mienne), or je
voudrias
que l'email parte avec un autre expéditeur, mais toujours depuis ma
machine
...
Je sais, je suis compliqué !!
Quelqu'un aurait-il une astuce pour ça SVP ??? Merci !
Laurent.J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire
tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" a écrit dans le message de news:Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas
exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de
news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de
créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet,
un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Bonjour à tous,
Donc voilà, ma macro fonctionne, il ne me reste plus qu'un soucis, c'est
que
l'email part avec l'adresse par défaut de Outlook (la mienne), or je
voudrias
que l'email parte avec un autre expéditeur, mais toujours depuis ma
machine
...
Je sais, je suis compliqué !!
Quelqu'un aurait-il une astuce pour ça SVP ??? Merci !
Laurent.
J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire
tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = "dcolardelle@cretin.fr"
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de news:
EFC29E12-FFAB-4585-9EDC-B57ED57E0714@microsoft.com...
Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas
exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.
Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = "dcolardelle@cretin.fr"
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de
news:
F3F60DEA-03B1-4071-914F-DC616EA98D40@microsoft.com...
Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de
créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet,
un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Bonjour à tous,
Donc voilà, ma macro fonctionne, il ne me reste plus qu'un soucis, c'est
que
l'email part avec l'adresse par défaut de Outlook (la mienne), or je
voudrias
que l'email parte avec un autre expéditeur, mais toujours depuis ma
machine
...
Je sais, je suis compliqué !!
Quelqu'un aurait-il une astuce pour ça SVP ??? Merci !
Laurent.J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire
tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" a écrit dans le message de news:Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas
exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de
news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de
créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet,
un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Range("A6").Select
49
Do While ActiveCell.Value <> ""
Do While ActiveCell.Offset(, 41) = ""
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) = ("Néant")
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) < ActiveCell(R3C41).Value
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Alerte" Then
Set olCompte = Compte
End If
Next
Account = ""
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.SendUsingAccount = olCompte
.To = ActiveCell.Offset(, 7)
.Importance = olImportanceHigh
.Subject = "Test essai mail OK2"
.Body = "test"
.SendUsingAccount = olCompte ''' Ca plante ici.
'.Display
.Send
End With
50
ActiveCell.Offset(1).Select
GoTo 49
Loop
Loop
End Sub
Bonjour.
Regarde ma réponse précédente (qui fonctionne avec XL2007, après redémarrage
d'Excel).
Le paramètre important est "SendUsingAccount"
On ne peut pas directement y accéder et il faut faire une boucle pour
chercher soit le displayname (ce que j'ai fait)
soit le SmtpAddress qui est l'adresse mail du compte à utiliser.
Daniel
"lb59" a écrit dans le message de news:Bonjour à tous,
Donc voilà, ma macro fonctionne, il ne me reste plus qu'un soucis, c'est
que
l'email part avec l'adresse par défaut de Outlook (la mienne), or je
voudrias
que l'email parte avec un autre expéditeur, mais toujours depuis ma
machine
...
Je sais, je suis compliqué !!
Quelqu'un aurait-il une astuce pour ça SVP ??? Merci !
Laurent.J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire
tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" a écrit dans le message de news:Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas
exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de
news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de
créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet,
un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Range("A6").Select
49
Do While ActiveCell.Value <> ""
Do While ActiveCell.Offset(, 41) = ""
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) = ("Néant")
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) < ActiveCell(R3C41).Value
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Alerte" Then
Set olCompte = Compte
End If
Next
Account = "alerte-backup@toto.com"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.SendUsingAccount = olCompte
.To = ActiveCell.Offset(, 7)
.Importance = olImportanceHigh
.Subject = "Test essai mail OK2"
.Body = "test"
.SendUsingAccount = olCompte ''' Ca plante ici.
'.Display
.Send
End With
50
ActiveCell.Offset(1).Select
GoTo 49
Loop
Loop
End Sub
Bonjour.
Regarde ma réponse précédente (qui fonctionne avec XL2007, après redémarrage
d'Excel).
Le paramètre important est "SendUsingAccount"
On ne peut pas directement y accéder et il faut faire une boucle pour
chercher soit le displayname (ce que j'ai fait)
soit le SmtpAddress qui est l'adresse mail du compte à utiliser.
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de news:
A5BDEF6A-9EA1-468D-AB77-7FC5488EEA27@microsoft.com...
Bonjour à tous,
Donc voilà, ma macro fonctionne, il ne me reste plus qu'un soucis, c'est
que
l'email part avec l'adresse par défaut de Outlook (la mienne), or je
voudrias
que l'email parte avec un autre expéditeur, mais toujours depuis ma
machine
...
Je sais, je suis compliqué !!
Quelqu'un aurait-il une astuce pour ça SVP ??? Merci !
Laurent.
J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire
tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = "dcolardelle@cretin.fr"
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de news:
EFC29E12-FFAB-4585-9EDC-B57ED57E0714@microsoft.com...
Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas
exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.
Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = "dcolardelle@cretin.fr"
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de
news:
F3F60DEA-03B1-4071-914F-DC616EA98D40@microsoft.com...
Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de
créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet,
un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Range("A6").Select
49
Do While ActiveCell.Value <> ""
Do While ActiveCell.Offset(, 41) = ""
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) = ("Néant")
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) < ActiveCell(R3C41).Value
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Alerte" Then
Set olCompte = Compte
End If
Next
Account = ""
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.SendUsingAccount = olCompte
.To = ActiveCell.Offset(, 7)
.Importance = olImportanceHigh
.Subject = "Test essai mail OK2"
.Body = "test"
.SendUsingAccount = olCompte ''' Ca plante ici.
'.Display
.Send
End With
50
ActiveCell.Offset(1).Select
GoTo 49
Loop
Loop
End Sub
Bonjour.
Regarde ma réponse précédente (qui fonctionne avec XL2007, après redémarrage
d'Excel).
Le paramètre important est "SendUsingAccount"
On ne peut pas directement y accéder et il faut faire une boucle pour
chercher soit le displayname (ce que j'ai fait)
soit le SmtpAddress qui est l'adresse mail du compte à utiliser.
Daniel
"lb59" a écrit dans le message de news:Bonjour à tous,
Donc voilà, ma macro fonctionne, il ne me reste plus qu'un soucis, c'est
que
l'email part avec l'adresse par défaut de Outlook (la mienne), or je
voudrias
que l'email parte avec un autre expéditeur, mais toujours depuis ma
machine
...
Je sais, je suis compliqué !!
Quelqu'un aurait-il une astuce pour ça SVP ??? Merci !
Laurent.J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire
tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" a écrit dans le message de news:Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas
exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de
news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de
créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un sujet,
un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Je suis désolé Daniel mais je ne comprends pas....
J'ai essayé d'utiliser ton compte au sein du mien, mais ça bugge.
Voici mon code :Range("A6").Select
49
Do While ActiveCell.Value <> ""
Do While ActiveCell.Offset(, 41) = ""
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) = ("Néant")
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) < ActiveCell(R3C41).Value
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Alerte" Then
Set olCompte = Compte
End If
Next
Account = ""
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.SendUsingAccount = olCompte
.To = ActiveCell.Offset(, 7)
.Importance = olImportanceHigh
.Subject = "Test essai mail OK2"
.Body = "test"
.SendUsingAccount = olCompte ''' Ca plante ici.
'.Display
.Send
End With
50
ActiveCell.Offset(1).Select
GoTo 49
Loop
Loop
End Sub
Merci.
Laurent.Bonjour.
Regarde ma réponse précédente (qui fonctionne avec XL2007, après
redémarrage
d'Excel).
Le paramètre important est "SendUsingAccount"
On ne peut pas directement y accéder et il faut faire une boucle pour
chercher soit le displayname (ce que j'ai fait)
soit le SmtpAddress qui est l'adresse mail du compte à utiliser.
Daniel
"lb59" a écrit dans le message de news:Bonjour à tous,
Donc voilà, ma macro fonctionne, il ne me reste plus qu'un soucis,
c'est
que
l'email part avec l'adresse par défaut de Outlook (la mienne), or je
voudrias
que l'email parte avec un autre expéditeur, mais toujours depuis ma
machine
...
Je sais, je suis compliqué !!
Quelqu'un aurait-il une astuce pour ça SVP ??? Merci !
Laurent.J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire
tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" a écrit dans le message de
news:Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas
exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A
chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de
news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de
créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine
cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un
sujet,
un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Je suis désolé Daniel mais je ne comprends pas....
J'ai essayé d'utiliser ton compte au sein du mien, mais ça bugge.
Voici mon code :
Range("A6").Select
49
Do While ActiveCell.Value <> ""
Do While ActiveCell.Offset(, 41) = ""
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) = ("Néant")
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) < ActiveCell(R3C41).Value
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Alerte" Then
Set olCompte = Compte
End If
Next
Account = "alerte-backup@toto.com"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.SendUsingAccount = olCompte
.To = ActiveCell.Offset(, 7)
.Importance = olImportanceHigh
.Subject = "Test essai mail OK2"
.Body = "test"
.SendUsingAccount = olCompte ''' Ca plante ici.
'.Display
.Send
End With
50
ActiveCell.Offset(1).Select
GoTo 49
Loop
Loop
End Sub
Merci.
Laurent.
Bonjour.
Regarde ma réponse précédente (qui fonctionne avec XL2007, après
redémarrage
d'Excel).
Le paramètre important est "SendUsingAccount"
On ne peut pas directement y accéder et il faut faire une boucle pour
chercher soit le displayname (ce que j'ai fait)
soit le SmtpAddress qui est l'adresse mail du compte à utiliser.
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de news:
A5BDEF6A-9EA1-468D-AB77-7FC5488EEA27@microsoft.com...
Bonjour à tous,
Donc voilà, ma macro fonctionne, il ne me reste plus qu'un soucis,
c'est
que
l'email part avec l'adresse par défaut de Outlook (la mienne), or je
voudrias
que l'email parte avec un autre expéditeur, mais toujours depuis ma
machine
...
Je sais, je suis compliqué !!
Quelqu'un aurait-il une astuce pour ça SVP ??? Merci !
Laurent.
J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire
tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = "dcolardelle@cretin.fr"
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de
news:
EFC29E12-FFAB-4585-9EDC-B57ED57E0714@microsoft.com...
Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas
exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A
chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.
Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = "dcolardelle@cretin.fr"
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de
news:
F3F60DEA-03B1-4071-914F-DC616EA98D40@microsoft.com...
Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de
créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine
cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un
sujet,
un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Je suis désolé Daniel mais je ne comprends pas....
J'ai essayé d'utiliser ton compte au sein du mien, mais ça bugge.
Voici mon code :Range("A6").Select
49
Do While ActiveCell.Value <> ""
Do While ActiveCell.Offset(, 41) = ""
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) = ("Néant")
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) < ActiveCell(R3C41).Value
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Alerte" Then
Set olCompte = Compte
End If
Next
Account = ""
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.SendUsingAccount = olCompte
.To = ActiveCell.Offset(, 7)
.Importance = olImportanceHigh
.Subject = "Test essai mail OK2"
.Body = "test"
.SendUsingAccount = olCompte ''' Ca plante ici.
'.Display
.Send
End With
50
ActiveCell.Offset(1).Select
GoTo 49
Loop
Loop
End Sub
Merci.
Laurent.Bonjour.
Regarde ma réponse précédente (qui fonctionne avec XL2007, après
redémarrage
d'Excel).
Le paramètre important est "SendUsingAccount"
On ne peut pas directement y accéder et il faut faire une boucle pour
chercher soit le displayname (ce que j'ai fait)
soit le SmtpAddress qui est l'adresse mail du compte à utiliser.
Daniel
"lb59" a écrit dans le message de news:Bonjour à tous,
Donc voilà, ma macro fonctionne, il ne me reste plus qu'un soucis,
c'est
que
l'email part avec l'adresse par défaut de Outlook (la mienne), or je
voudrias
que l'email parte avec un autre expéditeur, mais toujours depuis ma
machine
...
Je sais, je suis compliqué !!
Quelqu'un aurait-il une astuce pour ça SVP ??? Merci !
Laurent.J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire
tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" a écrit dans le message de
news:Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas
exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A
chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de
news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de
créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine
cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un
sujet,
un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Est-ce que tu es sûr du nom de ton compte ? (attention à la casse).
Pour afficher tes comptes :
Sub ListeComptes()
For Each cpte In Session.Accounts
MsgBox cpte.DisplayName
Next
End Sub
J'ai adapté ton code :
Sub y()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Account = ""
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..SendUsingAccount = olCompte
..To = ""
..Importance = olImportanceHigh
..Subject = "Test essai mail OK2"
..Body = "test"
..SendUsingAccount = olCompte ''' Ca plante ici.
'.Display
..Send
End With
End Sub
et le message part (et arrive) bien. Le problème doit être avec ton nom de
compte.
Bizarre d'ailleurs, la ligne qui plante alors que tu as la même ligne 5
lignes plus haut.
Daniel
"lb59" a écrit dans le message de news:Je suis désolé Daniel mais je ne comprends pas....
J'ai essayé d'utiliser ton compte au sein du mien, mais ça bugge.
Voici mon code :Range("A6").Select
49
Do While ActiveCell.Value <> ""
Do While ActiveCell.Offset(, 41) = ""
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) = ("Néant")
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) < ActiveCell(R3C41).Value
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Alerte" Then
Set olCompte = Compte
End If
Next
Account = ""
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.SendUsingAccount = olCompte
.To = ActiveCell.Offset(, 7)
.Importance = olImportanceHigh
.Subject = "Test essai mail OK2"
.Body = "test"
.SendUsingAccount = olCompte ''' Ca plante ici.
'.Display
.Send
End With
50
ActiveCell.Offset(1).Select
GoTo 49
Loop
Loop
End Sub
Merci.
Laurent.Bonjour.
Regarde ma réponse précédente (qui fonctionne avec XL2007, après
redémarrage
d'Excel).
Le paramètre important est "SendUsingAccount"
On ne peut pas directement y accéder et il faut faire une boucle pour
chercher soit le displayname (ce que j'ai fait)
soit le SmtpAddress qui est l'adresse mail du compte à utiliser.
Daniel
"lb59" a écrit dans le message de news:Bonjour à tous,
Donc voilà, ma macro fonctionne, il ne me reste plus qu'un soucis,
c'est
que
l'email part avec l'adresse par défaut de Outlook (la mienne), or je
voudrias
que l'email parte avec un autre expéditeur, mais toujours depuis ma
machine
...
Je sais, je suis compliqué !!
Quelqu'un aurait-il une astuce pour ça SVP ??? Merci !
Laurent.J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire
tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" a écrit dans le message de
news:Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas
exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A
chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de
news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de
créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine
cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un
sujet,
un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Est-ce que tu es sûr du nom de ton compte ? (attention à la casse).
Pour afficher tes comptes :
Sub ListeComptes()
For Each cpte In Session.Accounts
MsgBox cpte.DisplayName
Next
End Sub
J'ai adapté ton code :
Sub y()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Account = "alerte-backup@toto.com"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..SendUsingAccount = olCompte
..To = "dcolardelle@cretin.fr"
..Importance = olImportanceHigh
..Subject = "Test essai mail OK2"
..Body = "test"
..SendUsingAccount = olCompte ''' Ca plante ici.
'.Display
..Send
End With
End Sub
et le message part (et arrive) bien. Le problème doit être avec ton nom de
compte.
Bizarre d'ailleurs, la ligne qui plante alors que tu as la même ligne 5
lignes plus haut.
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de news:
DF71DFC5-DB0C-4159-AB9A-8A9EB84DF592@microsoft.com...
Je suis désolé Daniel mais je ne comprends pas....
J'ai essayé d'utiliser ton compte au sein du mien, mais ça bugge.
Voici mon code :
Range("A6").Select
49
Do While ActiveCell.Value <> ""
Do While ActiveCell.Offset(, 41) = ""
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) = ("Néant")
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) < ActiveCell(R3C41).Value
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Alerte" Then
Set olCompte = Compte
End If
Next
Account = "alerte-backup@toto.com"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.SendUsingAccount = olCompte
.To = ActiveCell.Offset(, 7)
.Importance = olImportanceHigh
.Subject = "Test essai mail OK2"
.Body = "test"
.SendUsingAccount = olCompte ''' Ca plante ici.
'.Display
.Send
End With
50
ActiveCell.Offset(1).Select
GoTo 49
Loop
Loop
End Sub
Merci.
Laurent.
Bonjour.
Regarde ma réponse précédente (qui fonctionne avec XL2007, après
redémarrage
d'Excel).
Le paramètre important est "SendUsingAccount"
On ne peut pas directement y accéder et il faut faire une boucle pour
chercher soit le displayname (ce que j'ai fait)
soit le SmtpAddress qui est l'adresse mail du compte à utiliser.
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de news:
A5BDEF6A-9EA1-468D-AB77-7FC5488EEA27@microsoft.com...
Bonjour à tous,
Donc voilà, ma macro fonctionne, il ne me reste plus qu'un soucis,
c'est
que
l'email part avec l'adresse par défaut de Outlook (la mienne), or je
voudrias
que l'email parte avec un autre expéditeur, mais toujours depuis ma
machine
...
Je sais, je suis compliqué !!
Quelqu'un aurait-il une astuce pour ça SVP ??? Merci !
Laurent.
J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire
tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = "dcolardelle@cretin.fr"
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de
news:
EFC29E12-FFAB-4585-9EDC-B57ED57E0714@microsoft.com...
Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas
exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A
chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.
Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = "dcolardelle@cretin.fr"
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" <laurent-barthelemy@itsfabry.com> a écrit dans le message de
news:
F3F60DEA-03B1-4071-914F-DC616EA98D40@microsoft.com...
Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de
créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine
cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un
sujet,
un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.
Est-ce que tu es sûr du nom de ton compte ? (attention à la casse).
Pour afficher tes comptes :
Sub ListeComptes()
For Each cpte In Session.Accounts
MsgBox cpte.DisplayName
Next
End Sub
J'ai adapté ton code :
Sub y()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Account = ""
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..SendUsingAccount = olCompte
..To = ""
..Importance = olImportanceHigh
..Subject = "Test essai mail OK2"
..Body = "test"
..SendUsingAccount = olCompte ''' Ca plante ici.
'.Display
..Send
End With
End Sub
et le message part (et arrive) bien. Le problème doit être avec ton nom de
compte.
Bizarre d'ailleurs, la ligne qui plante alors que tu as la même ligne 5
lignes plus haut.
Daniel
"lb59" a écrit dans le message de news:Je suis désolé Daniel mais je ne comprends pas....
J'ai essayé d'utiliser ton compte au sein du mien, mais ça bugge.
Voici mon code :Range("A6").Select
49
Do While ActiveCell.Value <> ""
Do While ActiveCell.Offset(, 41) = ""
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) = ("Néant")
GoTo 50
Loop
Do While ActiveCell.Offset(, 41) < ActiveCell(R3C41).Value
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Alerte" Then
Set olCompte = Compte
End If
Next
Account = ""
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.SendUsingAccount = olCompte
.To = ActiveCell.Offset(, 7)
.Importance = olImportanceHigh
.Subject = "Test essai mail OK2"
.Body = "test"
.SendUsingAccount = olCompte ''' Ca plante ici.
'.Display
.Send
End With
50
ActiveCell.Offset(1).Select
GoTo 49
Loop
Loop
End Sub
Merci.
Laurent.Bonjour.
Regarde ma réponse précédente (qui fonctionne avec XL2007, après
redémarrage
d'Excel).
Le paramètre important est "SendUsingAccount"
On ne peut pas directement y accéder et il faut faire une boucle pour
chercher soit le displayname (ce que j'ai fait)
soit le SmtpAddress qui est l'adresse mail du compte à utiliser.
Daniel
"lb59" a écrit dans le message de news:Bonjour à tous,
Donc voilà, ma macro fonctionne, il ne me reste plus qu'un soucis,
c'est
que
l'email part avec l'adresse par défaut de Outlook (la mienne), or je
voudrias
que l'email parte avec un autre expéditeur, mais toujours depuis ma
machine
...
Je sais, je suis compliqué !!
Quelqu'un aurait-il une astuce pour ça SVP ??? Merci !
Laurent.J'ai juste trouvé le code qui suit, mais je n'arrive pas à le faire
tourner
avec XL2007 :
Sub EnvoiMail()
Dim olCompte As Account, Compte As Account
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String
For Each Compte In Session.Accounts
Var = Compte.DisplayName
If Compte.DisplayName = "Romain" Then
Set olCompte = Compte
End If
Next
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..SendUsingAccount = olCompte
..Send
End With
End Sub
Daniel
"lb59" a écrit dans le message de
news:Je te remercie Daniel, ça m'a bien aidé, même si ce n'est pas
exactement
ce
que je voulais, et finalement ce n'est pas plus mal car comme cela
j'apprends
en même temps !!
J'ai encore un soucis, je n'arrive pas à mettre un "From" ??? A
chaque
fois
j'ai un message d'erreur, tu sais d'où ça peut venir ?
Merci.
Laurent.Bonsoir.
Ajoute à tes références "Microsoft Outlook xx Object Library.
Un code comme celui-ci fonctionne :
Sub EnvoiMail()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim PJ As String
Desti = ""
PJ = "e:donneesdanielmajbib.xls"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
..Attachments.Add PJ
..Subject = "Sujet"
..Body = [A1]
..Recipients.Add Desti
..Send
End With
End Sub
Cordialement.
Daniel
"lb59" a écrit dans le message de
news:Bonsoir à tous,
Je tente désespérément d'envoyer un mail via excel 2007 !!!
J'ai essayé beaucoup de choses avant de me toourner vers vous, et
franchement je ne vois plus !
Quelle est la fonction qui permet à Excel d'ouvrir Outlook et de
créer
un
mail ?
J'ai essayé Outlook.Application, mais ça plante à chaque fois....
Le résultat que je voudrais, c'est que lorsque une certaine
cellule
dépasse
une date fixée en "AP6", excel envoie un mail à la personne dont
l'adresse
mail se trouve sur la même ligne dans la colonne H, avec un
sujet,
un
corps
de texte etc....
Merci par avance pour votre aide !!
Laurent.