Mandar archivos desde C: al email Outlook (Excel VBA) Problemas!
Publicado por Julio (2 intervenciones) el 12/05/2018 18:43:00
Hola a tod@s, estoy intentando crear un código en VBA (ver debajo) para exportar archivos desde una carpeta en C: al correo del Outlook. El archivo de excel sobre el que quiero hacer la macro, tiene cuatro columnas, (email, subject, text , file name). Empieza en la segunda fila y tiene dos filas (con sus cuatro columnas correspondientes).
La macro me falla en la parte donde defino la variable "email".
Ciertamente no sé porque da error.
¿Alguien me podría ayudar con esto?
Saludos cordiales y mucha gracias
Julio
La macro me falla en la parte donde defino la variable "email".
Ciertamente no sé porque da error.
¿Alguien me podría ayudar con esto?
Saludos cordiales y mucha gracias
Julio
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub Macro1()
Dim outlookapp As Object
Dim outlookmailitem As Object
Dim Local_Users As Object
Dim email As String
Dim subject As String
Dim text As String
Dim filename As String
Dim path As String
Dim attachments As String
Dim x As Integer
Dim lastrow As Integer
'Do While x = Sheet1.Cells(x, 1) <> ""
'For x = 2 To 3
Set outlookapp = CreateObject("Outlook.Application")
Set outlookmailitem = outlookapp.createitem(0)
Set Local_Users = outlookmailitem.attachments
path = "C:\Users\fernanj22\Desktop\German call\Local Users"
email = Sheet1.Cells(x, 1)
subject = Sheet1.Cells(x, 2)
filename = Sheet1.Cells(x, 4)
text = Sheet1.Cells(x, 3)
attachment = path + filename
MsgBox email
outlookmailitem.To = email
outlookmailitem.subject = subject
outlookmailitem.Body = text
Local_Users.Add (attachments)
outlookmailitem.displayoutlookmailitem.sendlastrow = lastrow + 1
emailaddress = ""
x = x + 1
'Loop
'Next x
Set outlookapp = NothingSet outlookemailitem = NothingEnd Sub
Valora esta pregunta
0
