• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

charlie69

enviar sem perguntar

10 mensagens neste tópico

Boas

Sub SendMail()

     

    Dim OutApp As Object

    Dim OutMail As Object

    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")

    OutApp.Session.Logon

    Set OutMail = OutApp.CreateItem(0)

    strbody = "Bom dia" & vbNewLine & vbNewLine & _

                          "" & vbNewLine & _

              ""

    On Error Resume Next

    With OutMail

        .To = "name"

        .CC = ""

        .BCC = ""

        .Subject =  Date

        .Body = strbody

        .Send

    End With

    On Error GoTo 0

    Set OutMail = Nothing

    Set OutApp = Nothing

End Sub

A macro pergunta se quero enviar (Sim, não) como fazer para não perguntar e enviar logo?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

sim no excel...

há uma maneira (acho eu) de enviar sem perguntar.

Se calhar não é este código

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Só respondeste a metade da minha pergunta!

O que aparece ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

desculpa, estava a ler "o que parece?"

Surge uma msgbox com uma barrinha a encher, quando acaba de encher pergunta se Sim, não

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ok, já entendi!

Usa o Outlook Redemption que podes descarregar aqui: http://www.dimastr.com/redemption/

O que faz é um bypass à segurança do Outlook e podes utilizar gratuitamente se não for para fins comerciais. Já usei e funciona muito bem e tens alguns exemplos no menu Redemption Objects (no site)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sub cmdEnviarEmail_Click()
Call SendEmail
End Sub

Function SendEmail()
Set objMessage = CreateObject("CDO.Message")

objMessage.Subject = "Este é o campo de assunto"
objMessage.From = "Primeiro.Segundo@email.com"
objMessage.To = "Primeiro.Segundo@email.com, Primeiro.Segundo@SuperMail.com"
objMessage.TextBody = "Este é texto do corpo"
objMessage.AddAttachment "C:\Pasta1\Pasta2\Anexo.jpg"

'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.email.com"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==

objMessage.Send
End Function

Eu uso este codigo em quase todas as minhas folhas...

Agora é so personalizar, alem dos campos obvios.. nao esquecer o "smtp.email.com" para o endereço do servidor de email :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

YoungCoder,

Mas funciona através do Outlook ou é independente ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

YoungCoder,

Mas funciona através do Outlook ou é independente ?

Não sei se percebi bem a pergunta, mas aqui vai.

O cliente de email que tenho é o Outlook 2000.

Uso este código em 2 vertentes:

- Em vbs em diversos scripts de administração e automatismos

- Em vba em algumas folhas de excel

e funciona bem!

O único "senão" deste método, é que o email enviado não fica nos "Items Enviados", ou seja, a não ser que envies para ti mesmo não ficas com histórico de envios.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Hmm ok, eu uso Outlook Redemption porque como estou a fazer(mais ou menos como está no primeiro tópico) fica no outbox e não envia logo.

Assim não tem tempo de espera e fica também no histórico.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora