Jump to content

VBA + outlook


Recommended Posts

Boa tarde,

eu pretendo adicionar um evento "enviar" sobre um botão uma aplicação em VBA.

o botão devera criar uma nova folha exel com conteúdo de uma determinada planilha que esta onde se encontra o programa ( Sistema de gestão de notas técnicas), e automaticamente fazer o attach desse novo ficheiro criado no outlook para ser enviado como e_mail e junto anexar o ficheiro cuja localização (Caminho) encontra-se numa determinada célula ou text box.

ajuda!!!

Obrigado ?

Link to comment
Share on other sites

Olá JTualfo,

o botão será no Outlook ou no Excel ?

Seja como for junto código (genérico) que talvez te ajude....

Public Function ENVIOM(PARAQUEM As String, AZUNTO As String, QORPO As String, ATAXO() As String, _
FILOMSG As String, Optional WCC As String, Optional WBCC As String) As String
Dim ooAPP As Outlook.Application
Dim msjITEM As Outlook.MailItem
Dim nn As Long
On Error GoTo DEUERRO
ENVIOM = "*"
If Dir(FILOMSG) <> "" Then
  Kill FILOMSG
  Sleep 400
End If
Set ooAPP = New Outlook.Application
Set msjITEM = ooAPP.CreateItem(olMailItem)
With msjITEM
  For nn = 1 To UBound(ATAXO)
   .Attachments.Add (ATAXO(nn))
  Next
  If Len(WBCC) > 0 Then
   .BCC = WBCC
  End If
  If Len(WCC) > 0 Then
   .CC = WCC
  End If
  If InStr(QORPO, "html") > 0 Or InStr(QORPO, "HTML") > 0 Then
   .HTMLBody = QORPO
  Else
   .Body = QORPO
  End If
  .To = PARAQUEM
  .Subject = AZUNTO
'''  .SaveAs FILOMSG, olMSG
  .Send
End With
DoEvents
Sleep 250
Set ooAPP = Nothing
Set msjITEM = Nothing
ENVIOM = "OK"
Exit Function
DEUERRO:
'Call ErrHandler
End Function

Em dialecto Office 2000...

Espero ajudar....

JR

Link to comment
Share on other sites

io JRodrigues, o botão esta em exel.

o cabecalho da mensagem será preenchido no outlook.

o botão deve apenas activar o outlook e anexar uma planilha (worksheet) do ficheiro em exel na mensagem a ser enviada.

testei este código e de cobri que implicaria criar um formulario com os campos que deverão preencher os parametros da função (nome, atach, bcc,etc.) penso que esses detalhes podem ser feitos directamente no outlook.

apenas preciso activar o outlook e anexar ficheiro através de um botão no exell.

muito obrigado pela atenção.

?

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.