Code VBA Rows
Résolu/Fermé
fabricedu12
-
27 oct. 2021 à 14:22
Le Pingou Messages postés 12153 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 septembre 2024 - 27 oct. 2021 à 16:41
Le Pingou Messages postés 12153 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 septembre 2024 - 27 oct. 2021 à 16:41
A voir également:
- Code VBA Rows
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code activation windows 10 - Guide
- Code gta 4 ps4 - Guide
4 réponses
Le Pingou
Messages postés
12153
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
29 septembre 2024
1 447
27 oct. 2021 à 14:46
27 oct. 2021 à 14:46
Bonjour,
Sans voir le code c'est impossible dans faire plus.
Merci de le mettre en utilisant le symbole de code
Sans voir le code c'est impossible dans faire plus.
Merci de le mettre en utilisant le symbole de code
Sub Display_Mail()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
strbody = Range("E2" & Row) & vbNewLine & _
ActiveSheet.TextBoxes("TextBox 1").Text & vbNewLine & _
Range("F2" & Row)
With objMail
.To = Range("B2" & Row)
.Subject = "X"
.body = strbody
.Attachments.Add "X"
.Display
' Replace Desplay by .Send to automatically send the messages
End With
End Sub
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
strbody = Range("E2" & Row) & vbNewLine & _
ActiveSheet.TextBoxes("TextBox 1").Text & vbNewLine & _
Range("F2" & Row)
With objMail
.To = Range("B2" & Row)
.Subject = "X"
.body = strbody
.Attachments.Add "X"
.Display
' Replace Desplay by .Send to automatically send the messages
End With
End Sub
Le Pingou
Messages postés
12153
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
29 septembre 2024
1 447
27 oct. 2021 à 15:26
27 oct. 2021 à 15:26
Bonjour,
Si on demande d'utiliser le symbole de code [<>], nous avons ceci, a noter que le bonjour n'est pas inclus:
Si on demande d'utiliser le symbole de code [<>], nous avons ceci, a noter que le bonjour n'est pas inclus:
Sub Display_Mail()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
strbody = Range("E2" & Row) & vbNewLine & _
ActiveSheet.TextBoxes("TextBox 1").Text & vbNewLine & _
Range("F2" & Row)
With objMail
.To = Range("B2" & Row)
.Subject = "X"
.body = strbody
.Attachments.Add "X"
.Display
' Replace Desplay by .Send to automatically send the messages
End With
End Sub
Le Pingou
Messages postés
12153
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
29 septembre 2024
1 447
27 oct. 2021 à 16:41
27 oct. 2021 à 16:41
Bonjour,
Ce code indique une erreur (Erreur d'exécution 10004) )à la ligne:
Je ne peux donc pas continuer n'ayant pas les éléments nécessaire.
Ce code indique une erreur (Erreur d'exécution 10004) )à la ligne:
strbody = Rang......,Range("F2" & Row)
Je ne peux donc pas continuer n'ayant pas les éléments nécessaire.