bonjour voici le code que j'utilise pour envoyer un email a partir d'une
feuille excel
cela fonctionne tres bien mais j'aimerais envoyer les valeurs d'une plage de
donnée dans le "body" pouvvez vous m'aider svp
Private Sub CommandButton1_Click()
Dim Mail As MailSender
Set Mail = New MailSender
Mail.Host = "smtp1.sympatico.ca"
Mail.Port = 25
Mail.From = "xxxxxx@sympatico.ca"
Mail.AddAddress "4xxxxx@msg.telus.com"
Mail.Subject = "alarm alarm "
Mail.Body = "texte:" & Chr(13) & Chr(16) & "texte."
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
rcgozer
j'ai trouver la solution merci pareille Private Sub TextBox2_Change() Dim Mail As MailSender Dim d As String
d = Range("a18") 'd egal valeur de la cellule a18 Set Mail = New MailSender Mail.Host = "smtp1.sympatico.ca" Mail.Port = 25 Mail.From = "" Mail.AddAddress "" Mail.Body = "TURBIDITÉ FILTRE # 1 =" & dj
Mail.Send End Sub
bonjour voici le code que j'utilise pour envoyer un email a partir d'une feuille excel cela fonctionne tres bien mais j'aimerais envoyer les valeurs d'une plage de donnée dans le "body" pouvvez vous m'aider svp Private Sub CommandButton1_Click() Dim Mail As MailSender
Set Mail = New MailSender Mail.Host = "smtp1.sympatico.ca" Mail.Port = 25 Mail.From = "" Mail.AddAddress "" Mail.Subject = "alarm alarm " Mail.Body = "texte:" & Chr(13) & Chr(16) & "texte."
Mail.Send End Sub
j'ai trouver la solution merci pareille
Private Sub TextBox2_Change()
Dim Mail As MailSender
Dim d As String
d = Range("a18")
'd egal valeur de la cellule a18
Set Mail = New MailSender
Mail.Host = "smtp1.sympatico.ca"
Mail.Port = 25
Mail.From = "xxxxxxx@sympatico.ca"
Mail.AddAddress "xxxxxxxxxxx@msg.telus.com"
Mail.Body = "TURBIDITÉ FILTRE # 1 =" & dj
Mail.Send
End Sub
bonjour voici le code que j'utilise pour envoyer un email a partir d'une
feuille excel
cela fonctionne tres bien mais j'aimerais envoyer les valeurs d'une plage de
donnée dans le "body" pouvvez vous m'aider svp
Private Sub CommandButton1_Click()
Dim Mail As MailSender
Set Mail = New MailSender
Mail.Host = "smtp1.sympatico.ca"
Mail.Port = 25
Mail.From = "xxxxxx@sympatico.ca"
Mail.AddAddress "4xxxxx@msg.telus.com"
Mail.Subject = "alarm alarm "
Mail.Body = "texte:" & Chr(13) & Chr(16) & "texte."
j'ai trouver la solution merci pareille Private Sub TextBox2_Change() Dim Mail As MailSender Dim d As String
d = Range("a18") 'd egal valeur de la cellule a18 Set Mail = New MailSender Mail.Host = "smtp1.sympatico.ca" Mail.Port = 25 Mail.From = "" Mail.AddAddress "" Mail.Body = "TURBIDITÉ FILTRE # 1 =" & dj
Mail.Send End Sub
bonjour voici le code que j'utilise pour envoyer un email a partir d'une feuille excel cela fonctionne tres bien mais j'aimerais envoyer les valeurs d'une plage de donnée dans le "body" pouvvez vous m'aider svp Private Sub CommandButton1_Click() Dim Mail As MailSender
Set Mail = New MailSender Mail.Host = "smtp1.sympatico.ca" Mail.Port = 25 Mail.From = "" Mail.AddAddress "" Mail.Subject = "alarm alarm " Mail.Body = "texte:" & Chr(13) & Chr(16) & "texte."
