Re : macro envoi mail depuis excel
Merci VBACrumble
J'ai pris des bouts de la foire et du marché et j'ai mis mon cerveau sur on et j'ai réussi a écrire mon code.
Je le met ci dessous :
Dim obj As String
Dim mes As String
Dim myStr As String
Dim myStr1 As String
obj = "consultation"
mes = "message"
For I = 1 To 100
If InStr("@", Trim(Cells(I, 26))) = 0 Then
myStr = Cells(I, 26)
If InStr("@", Trim(Cells(I, 27))) = 0 Then
myStr1 = Cells(I, 27) & Cells(I, 28) & Cells(I, 29) & Cells(I, 30) & Cells(I, 31) & Cells(I, 32) & Cells(I, 33) & Cells(I, 34) & Cells(I, 35) & Cells(I, 36) & Cells(I, 37) & Cells(I, 38) & Cells(I, 39) & Cells(I, 40) & Cells(I, 41) & Cells(I, 42) & Cells(I, 43) & Cells(I, 44)
End If
myStr = Left(myStr, Len(myStr))
myStr1 = Left(myStr1, Len(myStr1))
copie = myStr1
URLto = "mailto:" & Adresse & "?subject=" & obj & "&body=" & mes & "&Bcc=" & copie
ActiveWorkbook.FollowHyperlink Address:=URLto
myStr = ""
myStr1 = ""
End If
Next
Tout fonctionne ou presque, j'ai bien le sujet du mail, ma liste de destinataitre en bcc
Mais ce que je voudrais et la je bloque, c'est mettre une partie de page a la place de message.
de A1 à F50. en gardant l'aspect tableau parceque si je lui donne toutes les cellules a la suite il me les mets sous forme de texte , au cul a cul.
Alors si quelqu'un peut m'aider. Merci