sent un message par email sans joindre le fichier et sans feuille

[news]

Bonjour à tous du forum,

De l'Excel, je veux envoyer une information par email, mais sans joindre le fichier ou la feuille.

J'utilise le code vba :
Mail = __.____@com
Application.Dialogs(xlDialogSendMail).Show Mail

Mais le fichier est joint.

Comment résoudre que le fichier n'est pas joint ?, qu'un message d'information est envoyé par email, sans que le fichier ou la feuille est joint ?
mieux serait avec .display (pour y ajouter encore du texte ) aulieu que .send

Parfois les choses faciles, on s'y met, et on n'avance pas.

news

 

[news]

Re : sent un message par email sans joindre le fichier et sans feuille

Bonjour à tous du forum,

Re:
résolu
après recherches j'en ai trouvé le vba code suivant, utilisé par Ron de Bruin :

Sub Mail_small_Text_Outlook()
'Working in Office 2000-2007
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

On Error Resume Next
With OutMail
.To = "__._____@com"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = strbody
'You can add a file like this
'.Attachments.Add ("C:\test.txt")
.Display 'or use .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[news]

Re : sent un message par email sans joindre le fichier et sans feuille

Bonjour à tous du forum.

Est-ce possible d'envoyer un email par macro en ajoutant du texte avec autre format (en gras , en couleur,

Re:
annulé et posté par un nouveau sujet, comme ce sujet traitant d'autre format de texte en envoyant par email, ne noncerne pas le sujet posté initial.

news