Envoie de mail
Bonjour, j'ai beau regarder, je ne trouve pas la solution.
J'ai un code qui doit marcher avec un PC mais sous mac la fonction "mailenvelope" ne doit pas fonctionner??
Voici le code :
'envoie de mail
Dim Mafeuille As Worksheet
Dim Nbligne As Integer
Set Mafeuille = ThisWorkbook.Sheets("listedecoupe")
Application.ScreenUpdating = False
Nbligne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
Mafeuille.Range("A1:V" & Nbligne).Select
With Selection.Prent.MailEnvelope.Item
.to = Mafeuille.Range("W1").Value
.display
End With
Application.ScreenUpdating = True
End SubJ'utilise "mail" pour l'envoie des courriels.
Si quelqu'un voit la solution MERCI
Salut Isa
Are you taking for granted that everybody speaks English ....?
slt James,
Are you taking for granted that everybody speaks English
non mais....
avec tout les outils disponible sur google, nul besoin de connaitre un autre langage pour le lire.
tu peux même lire cette page en langue Finois ....
Bonjour,
il y a plusieurs exemples ici:
Le souci c'est qu'il utilise outlook mais je souhaite utiliser mail?
Ou alors mon anglais est vraiment moyen ( ce qui est le cas)
Le souci c'est qu'il utilise outlook mais je souhaite utiliser mail?
Ou alors mon anglais est vraiment moyen ( ce qui est le cas)
regarde sous la rubrique "Courrier avec Excel 2011 / Apple Mail"
Désolé mais le lien ne fonctionne pas avec excel 2011 car les exemples sont tous avec excel 2016.
Du coup j'ai avancé un peu mais impossible de copier l'adresse et et l'objet.
Sub envoiemail()
'envoie de mail
Dim Mafeuille As Worksheet
Dim Nbligne As Integer
Dim fichier As String
With Worksheets("listedecoupe")
fichier = "liste découpe n°" & .Range("J2")
Set Mafeuille = ThisWorkbook.Sheets("listedecoupe")
Application.ScreenUpdating = False
Nbligne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
Mafeuille.Range("A1:W" & Nbligne).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Application.Dialogs(xlDialogSendMail).Show
"Je pense qu'il faut mettre l'expediteur et l'objet, mais comment??
End With
ActiveWorkbook.SaveAs Filename:= _
"Macintosh HD:Users:daurelle:Documents:commande mouton: " & fichier, _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End With
Application.ScreenUpdating = True
End Sub
En sachant que l’expéditeur et l'objet son dans une cellule de cette feuille.
Merci
Bonjour,
Sub SendEmail()
' Proposé par Jim Gordon '
Application.CommandBars.Add(Name:="MailMe").Visible = True 'or False
Application.CommandBars("MailMe").Controls.Add
Type:=msoControlButton, Id:=2188, Before:=1
Application.CommandBars("MailMe").Controls(1).Execute
Application.CommandBars("MailMe").Delete
'
' Ou plus simple :
ActiveWorkbook.SendMail Recipients:="Person@somewhere.com"
End SubEn espèrant que cela puisse t'aider
Bonjour,
Sub SendEmail() ' Proposé par Jim Gordon ' Application.CommandBars.Add(Name:="MailMe").Visible = True 'or False Application.CommandBars("MailMe").Controls.Add Type:=msoControlButton, Id:=2188, Before:=1 Application.CommandBars("MailMe").Controls(1).Execute Application.CommandBars("MailMe").Delete ' ' Ou plus simple : ActiveWorkbook.SendMail Recipients:="Person@somewhere.com" End SubEn espèrant que cela puisse t'aider
Merci je vais tester
Bonjour,
Sub SendEmail() ' Proposé par Jim Gordon ' Application.CommandBars.Add(Name:="MailMe").Visible = True 'or False Application.CommandBars("MailMe").Controls.Add Type:=msoControlButton, Id:=2188, Before:=1 Application.CommandBars("MailMe").Controls(1).Execute Application.CommandBars("MailMe").Delete ' ' Ou plus simple : ActiveWorkbook.SendMail Recipients:="Person@somewhere.com" End SubEn espèrant que cela puisse t'aider
Super ça marche nickel merci de ton aide
Bon du coup je revient vers vous avec mon souci car j'ai bien l'adresse du mail, mais je ne trouve pas la solution pour mettre l'objet.
With ActiveWorkbook
.SendMail Recipients:=Range("V1").Value
.Subject = Range("F2").Value
End With
D’après vous quel écriture serait adapter?
Merci
Bonjour,
Que signifie exactement ton expression ... ' mettre l'objet ' ... ???
Blague à part ...a priori, tu pourrais tester le code suivant ...
With ActiveWorkbook
.SendMail Recipients:=Range("V1").Value
.MailSubject = Range("F2").Value
End WithEn espèrant que cela t'aide
C'est juste : je souhaite que le titre de mon tableau soit l'objet du mail et dans la colonne à coté j'ai l'adresse du mail.
Je teste cette formule.
Merci
Bonjour,
Que signifie exactement ton expression ... ' mettre l'objet ' ... ???
Blague à part ...a priori, tu pourrais tester le code suivant ...
With ActiveWorkbook .SendMail Recipients:=Range("V1").Value .MailSubject = Range("F2").Value End WithEn espèrant que cela t'aide
Non j'ai le message suivant : propriété non gérer
Donc ... ce n'est pas l'expression .MailSubject
mais une autre ...
Dès que j'ai un petit moment ... je vais faire une recherche ...
Au fait, sur ton Mac est-ce bien Excel 2011 que tu utilises ? Et connais tu la version de ton logiciel Mail ?
Re,
A la re-lecture de la source Ron de Bruin ... il faut utiliser le code suivant :
MailFromMacWithMail bodycontent:="Bonjour ....", _
mailsubject:=Range("F2").Value, _
toaddress:=Range("V1").Value, _
ccaddress:="", _
bccaddress:="", _
displaymail:=FalseIl ne reste plus qu'à l'adapter à ta situation spécifique ...