1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Sub SendMetals()
Dim MonOutlook As Object
Dim MonMessage As Object
Dim emailto As String, emailcc As String, subject As String, text1 As String, text2 As String
Dim orders As Variant
Dim i As Integer, j As Integer
emailto = Range("AZ29").Value
emailcc = Range("AZ30").Value
subject = Range("AZ31").Value
text1 = Range("AZ33").Value
text2 = Range("AZ19").Value
orders = Range("AT24:AU26")
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = emailto
MonMessage.Cc = emailcc
MonMessage.subject = subject
MonMessage.body = text1 & text2
MonMessage.display
Set MonOutlook = Nothing
End Sub |
Partager