[Resolvido]Macro Executar Codigo

Bom dia a todos.

Eu quero criar uma macro que execute um modulo e nao estou conseguindo, tentei usar o executar codigo mas nao acontece nada, alguém, por favor, pode me ajudar, eu agradeço atenção.

Abraços

Como está tentando fazer isso? Detalhe o processo por gentileza.

Bom dia!

Criquio.

Eu criei um modulo Enviar_email este modulo envia automaticamente e-mails com anexo, agora eu criei um formulario com um botão, e eu gostaria que ao clicar neste botao envio de email aciona-se este módulo Enviar_email .

A princípio, para executar uma função, basta chama-la pelo nome:

Call NomeDaFunção

Mas tenha em mente que a função precisa estar declarada como pública caso ela seja chamada de outro local que não seja o local aonde ela foi criada. Tambem pode ser necessário passar parâmetros na chamada da função em certos casos. Se não conseguir, poste a função que está tentando chamar par vermos melhor.

Olá
Criquio

O código é esse http://maximoaccess.forumeiros.com/t10170-resolvidoerro-na-condicao-no-attachmentsadd-enviando-varios-anexos-ao-mesmo-tempo
que eu tb postei e solicitei ajuda eu gostaria de chama-lo através de um botáo, pensie em usar o Call, desculpe a ignorancia, como faze-lo, por favor.

Abraços

Abaixo o código que eu preciso executar através do botão.

Sub ENVIAR()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim DB As DAO.Database
Dim TB As DAO.Recordset
Dim file As Variant

Set DB = CurrentDb
Set TB = DB.OpenRecordset("Tbl_EMAIL")
On Error GoTo trata
TB.MoveFirst

Do While Not TB.EOF

If file <> "" Then
GoTo trata
End If

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail
.To = TB!CD_LOGIN_RESPONSAVEL
.Cc = TB!CD_LOGIN
.Subject = "Extrato do Colaborador - " & TB!Data & " - " & TB!DEPTO

.HTMLBody = TB!gestor & "Segue extrato de horas por colaborador sob sua gestão, dados referente ao mês de " & TB!mes
.HTMLBody = .HTMLBody & "Atenciosamente."

If TB!arquivo1 <> ";" Then
.Attachments.Add "U:\Caminho da rede\" & TB!arquivo1 & ".xls"
If TB!arquivo2 <> ";" Then
.Attachments.Add "U:\Caminho da rede\" & TB!arquivo2 & ".xls"
If TB!arquivo3 <> ";" Then
.Attachments.Add "U:\Caminho da rede\" & TB!arquivo3 & ".xls"
If TB!arquivo4 <> ";" Then
.Attachments.Add "U:\Caminho da rede\" & TB!arquivo4 & ".xls"
If TB!arquivo5 <> ";" Then
.Attachments.Add "U:\Caminho da rede\" & TB!arquivo5 & ".xls"
If TB!arquivo6 <> ";" Then
.Attachments.Add "U:\Caminho da rede\" & TB!arquivo6 & ".xls"
If TB!arquivo7 <> ";" Then
.Attachments.Add "U:\Caminho da rede\" & TB!arquivo7 & ".xls"
If TB!arquivo8 <> ";" Then
.Attachments.Add "U:\Caminho da rede\" & TB!arquivo8 & ".xls"
If TB!arquivo9 <> ";" Then
.Attachments.Add "U:\Caminho da rede\" & TB!arquivo9 & ".xls"
If TB!arquivo10 <> ";" Then
.Attachments.Add "U:\Caminho da rede\" & TB!arquivo10 & ".xls"

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

.Display

End With

trata:
Set OutMail = Nothing
Set OutApp = Nothing
TB.MoveNext
Loop
End Sub

Esse codigo você coloca num modulo e salve.

Altere o sub para publico, assim:

Public Sub ENVIAR()

Entre nas proriedades do seu botão, no evento ao pressionar é só invocar a chamada:

Private Sub SeuBotao_Click()
    Call ENVIAR
End Sub

Funcionou perfeitamente, muito obrigado a todos pela ajuda e o breve retorno.

Abraços

Faltou o Resolvido.

Desta vez eu coloco.