VBA Envoi email

Question

Voice mon code d envoi de mon classeur actif par email Il fonctionne tres bien. J aimerais simplement rajouter un corps de texte dans mon email et le must une adresse email CC ... Merci de votre aide Sub EnvoiEmail() Dim Adresse(), Sujet As String Adresse = Range("AO1:AO2") Sujet = "PG DEVELOPMENT" Application.Dialogs(xlDialogSendMail).Show Adresse, Sujet, True End Sub Merci de votre aide Benoit...

EngueEngue · Accepted Answer

Avec Sendmail tu ne peux pas:

1) Envoyer du texte dans le body

2) Utiliser CC ou BCC

3) Attacher d'autres fichiers.

Tu as plusieurs méthodes pour contourner.

1)CDO qui va pousser le mail directement sur le serveur smtp

2)Interragir avec outlook

3)Interagir avec le shell et tout programme acceptant des commandes shell comme mozilla thunderbird.

EngueEngue · Answer

Rien de plus simple:

Chaque méthode a sa technique, en effet, bien que le CDO soit la meilleure, elle est parfois compliquée à mettre en place, si tu me files ton fichier, le serveur smtp de ton fournisseur de boite mail et son port je te le paramètre.

La méthode 2 est bien documentée sur internet, si tu as outlook tu peux t'en servir,

Méthode 3

sub toto()
fsendthunderbird(Range("AO1"),"PG DEVELOPMENT","Salut ça va ?"
end sub

Public Function fSendThunderbird(strTo As String, strSubject As String, strBody As String) 

'This function can be used to send an e-mail from Mozilla Thunderbird. 
'The syntax for calling Thunderbird from a command line (DOS prompt) is: 
' 
'thunderbird -compose "mailto:somebody@somewhere?cc=address@provider&subject=hi&body=something" 
' 
Dim strCommand As String 

strCommand = "C:\Program Files\Mozilla Thunderbird\thunderbird" 

strCommand = strCommand & " -compose " & Chr$(34) & "mailto:" & strTo & "?" 
strCommand = strCommand & "subject=" & Chr$(34) & strSubject & Chr$(34) & "&" 
strCommand = strCommand & "body=" & Chr$(34) & strBody & Chr$(34)
 strcommand = strcommand & "," & "attachment=file:///" & fichierjoint

Call Shell(strCommand, vbNormalFocus) 

End Function

grisan29 · Answer

Je vais joindre un classeur d'envoi de mail avec les options choix du destinataire choix CC choix CCI + un récépissé de l'envoi dans sa propre boite mail l'envoi de mail est accompagné de "vous souhaitant bonne réception+nom" et en bas du mail "restant a votre service pour tout renseignement, cliquer sur le lien pour me contacter" le lien est l'adresse mail de l'expéditeur il y a une option d'aperçu du mail possibilité d'envoyer une pièce-jointe (1 seule) je l'ai trouvé dans les contributions de développez, posté par Patrick toulon et légèrement modifier pour CC ET CCI il ne fonctionne pas avec outlook, Pascal...