Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Mail et Excel

Mail et Excel

5 réponses
Avatar
Steve
Bonjour,
J'ai récupéré ce code de JB que je remercie au passage, mais j'aimerais
l'adapter.
Je voudrais (si c'est possible) envoyer comme message les commentaires en
lieu et place
des cellules.

Sub envoi_Mail()
Dim olapp As Outlook.Application
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Offset(0, 5)
msg.Subject = ActiveCell
msg.Body = 'Le commentaire de A2 et le commentaire de B2.....
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Je vous remercie de votre aide
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
isabelle
bonjour Steve,

msg.Body = Range("A2").Comment.Text & " " & Range("B2").Comment.Text

isabelle

Bonjour,
J'ai récupéré ce code de JB que je remercie au passage, mais j'aimerais
l'adapter.
Je voudrais (si c'est possible) envoyer comme message les commentaires en
lieu et place
des cellules.

Sub envoi_Mail()
Dim olapp As Outlook.Application
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Offset(0, 5)
msg.Subject = ActiveCell
msg.Body = 'Le commentaire de A2 et le commentaire de B2.....
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Je vous remercie de votre aide




Avatar
JB
Bonsoir,

Sub envoi_Mail2()
'outils/références OutLook
Dim olapp As Outlook.Application
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Offset(0, 5)
msg.Subject = ActiveCell
If Not ActiveCell.Comment Is Nothing Then
msg.Body = ActiveCell.Comment.Text & vbCrLf &
ActiveCell.Offset(0, 1).Comment.Text
Else
msg.Body = "Pas de commentaire"
End If
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub

JB

On 12 juil, 18:58, "Steve" wrote:
Bonjour,
J'ai récupéré ce code de JB que je remercie au passage, mais j'aime rais
l'adapter.
Je voudrais (si c'est possible) envoyer comme message les commentaires en
lieu et place
des cellules.

Sub envoi_Mail()
Dim olapp As Outlook.Application
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Offset(0, 5)
msg.Subject = ActiveCell
msg.Body = 'Le commentaire de A2 et le commentaire de B2.....
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Je vous remercie de votre aide


Avatar
AG
En utilisant le code, un boite de dialogue Outlook apparait qui demande une
autorisatin
Y a-t-il moyen d'éviter cette demande

Merci

AG


Bonsoir,

Sub envoi_Mail2()
'outils/références OutLook
Dim olapp As Outlook.Application
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Offset(0, 5)
msg.Subject = ActiveCell
If Not ActiveCell.Comment Is Nothing Then
msg.Body = ActiveCell.Comment.Text & vbCrLf &
ActiveCell.Offset(0, 1).Comment.Text
Else
msg.Body = "Pas de commentaire"
End If
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub

JB

On 12 juil, 18:58, "Steve" wrote:
Bonjour,
J'ai récupéré ce code de JB que je remercie au passage, mais j'aimerais
l'adapter.
Je voudrais (si c'est possible) envoyer comme message les commentaires en
lieu et place
des cellules.

Sub envoi_Mail()
Dim olapp As Outlook.Application
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Offset(0, 5)
msg.Subject = ActiveCell
msg.Body = 'Le commentaire de A2 et le commentaire de B2.....
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Je vous remercie de votre aide







Avatar
ag
En regardant les autres messages j'ai trouvé un explication du problème et
une solution: CDO Redemption
Mais j'ai un nouveau problème
J'ai utilisé le code suivant:



Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

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

With iMsg
Set .Configuration = iConf
.To = ""
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = strbody
.Send
End With

End Sub

Lorsque j'exécute, il y a un message d'erreur sur la commande .send (en bas)
qui dit "La valeur d'exécution SendUsing" est non valide

Merci

AG



"AG" a écrit dans le message de news:

En utilisant le code, un boite de dialogue Outlook apparait qui demande
une
autorisatin
Y a-t-il moyen d'éviter cette demande

Merci

AG


Bonsoir,

Sub envoi_Mail2()
'outils/références OutLook
Dim olapp As Outlook.Application
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Offset(0, 5)
msg.Subject = ActiveCell
If Not ActiveCell.Comment Is Nothing Then
msg.Body = ActiveCell.Comment.Text & vbCrLf &
ActiveCell.Offset(0, 1).Comment.Text
Else
msg.Body = "Pas de commentaire"
End If
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub

JB

On 12 juil, 18:58, "Steve" wrote:
Bonjour,
J'ai récupéré ce code de JB que je remercie au passage, mais j'aimerais
l'adapter.
Je voudrais (si c'est possible) envoyer comme message les commentaires
en
lieu et place
des cellules.

Sub envoi_Mail()
Dim olapp As Outlook.Application
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Offset(0, 5)
msg.Subject = ActiveCell
msg.Body = 'Le commentaire de A2 et le commentaire de B2.....
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Je vous remercie de votre aide









Avatar
AG
Je crois que j'ai trouvé
Le nom du serveur smtp n'y était pas
En l'ajoutant, ça fonctinne
Merci

AG
"ag" a écrit dans le message de
news:
En regardant les autres messages j'ai trouvé un explication du problème et
une solution: CDO Redemption
Mais j'ai un nouveau problème
J'ai utilisé le code suivant:



Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

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

With iMsg
Set .Configuration = iConf
.To = ""
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = strbody
.Send
End With

End Sub

Lorsque j'exécute, il y a un message d'erreur sur la commande .send (en
bas)
qui dit "La valeur d'exécution SendUsing" est non valide

Merci

AG



"AG" a écrit dans le message de news:

En utilisant le code, un boite de dialogue Outlook apparait qui demande
une
autorisatin
Y a-t-il moyen d'éviter cette demande

Merci

AG


Bonsoir,

Sub envoi_Mail2()
'outils/références OutLook
Dim olapp As Outlook.Application
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Offset(0, 5)
msg.Subject = ActiveCell
If Not ActiveCell.Comment Is Nothing Then
msg.Body = ActiveCell.Comment.Text & vbCrLf &
ActiveCell.Offset(0, 1).Comment.Text
Else
msg.Body = "Pas de commentaire"
End If
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub

JB

On 12 juil, 18:58, "Steve" wrote:
Bonjour,
J'ai récupéré ce code de JB que je remercie au passage, mais
j'aimerais
l'adapter.
Je voudrais (si c'est possible) envoyer comme message les commentaires
en
lieu et place
des cellules.

Sub envoi_Mail()
Dim olapp As Outlook.Application
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Offset(0, 5)
msg.Subject = ActiveCell
msg.Body = 'Le commentaire de A2 et le commentaire de B2.....
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Je vous remercie de votre aide