Newsgroup: it.comp.appl.access
Titolo: messaggio outlook senza firma

con questo metodo creo un messaggio outlook a cui automaticamente lego un 
allegato
Sub SendMessage(Optional AttachmentPath)
   Dim objOutlook As Outlook.Application
   Dim objOutlookMsg As Outlook.MailItem
   Dim objOutlookRecip As Outlook.Recipient
   Dim objOutlookAttach As Outlook.Attachment
   ' Create the Outlook session.
   Set objOutlook = CreateObject("Outlook.Application")
   ' Create the message.
   Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
   With objOutlookMsg
      ' Add the To recipient(s) to the message.
     Set objOutlookRecip = .Recipients.Add(mail1)
      objOutlookRecip.Type = olTo
      ' Set the Subject, Body, and Importance of the message.
      .Subject = "oggetto da definire"
      .Body = ""
      .Importance = olImportanceHigh  'High importance
      ' Add attachments to the message.
      If Not IsMissing(AttachmentPath) Then
         Set objOutlookAttach = .Attachments.Add(AttachmentPath)
      End If
      ' Resolve each Recipient's name.
        objOutlookRecip.Resolve
      .Display  ' questo l'ho midifcato da .send per poter agire sul 
messaggio"
   End With
   Set objOutlookMsg = Nothing
   Set objOutlook = Nothing
End Sub
il problema è che non mi mette la firma nè lui in auto ne posso in outlook 
aggiungerla come posso fare?
ciao
Max 

 Sub SendMessage(Optional AttachmentPath)
Aggiungi:
Dim FSO as New FileSystemObject, TextStream as Object, Signature As 
String
Set TextStream = 
FSO.GetFile("C:\MySignature").OpenAsTextStream(ForReading, 
TriStateUseDefault)
Signature = TextStream.ReadAll
Poi al tuo:
.Body <il tuo Body Text> & vbCrLf & vbLf & Signature
Sempre che la tua firma sia contenuta in formato testo in 
C:\MySignature.txt
Perï¿œ se salti il .Body perchï¿œ invii il corpo col .Display... salta 
tutta l'operazione.
Tu avvii il .Display per presentare l'allegato che porta tutto il testo 
della comunicazione?
Potresti mettere tutto nell'allegato e trasmetterlo non come Attachment 
ma come Body (eviteresti oltretutto al destinatario di scocciatura di 
aprire  e/o stampare l'allegato).
Procedura soggettiva comunque, del tutto personale... a me piace cosï¿œ.
Bruno
PS
Il codice non l'ho testato; se non ti funziona... dimmelo che lo provo.


purtroppo la situazione č un po' piů complessa...
la firma č in formato htm perché contiene anche immagini ed č anche 
formattata ed č la firma che viene inserita normalmente quando creo un nuovo 
messaggio da Outlook,  apro con .display perché ora inserisco la firma "a 
mano" (copio la firma la prima volta e la incollo ogni volta... per questo 
ho fatto una macro ch richiamo con un pulsante in Outlook), inoltre nella 
stessa macro di Outlook (o meglio di word visto che č lui che si occupa di 
creare i messaggi) inserisco un secondo allegato che deve restare separato 
dal primo e che non mi sembra di riuscire ad inviare  insieme col primo.
P.s. entrambi gli allegati sono file pdf creati da un altro software
ciao e grazie
Max

 P.s. entrambi gli allegati sono file pdf creati da un altro software
Per piï¿œ di un allegato:
Dim Allegati(1 to n) as String
Allegati(1) = "C:\aa1.txt"
Allegati(2) = "C:\aa2.pdf"
etc.
With NewMail
    .To = ...
    .Subject = ...
    . Body = ....
    For i=1 to n
       .Attachments.Add Allegati(i)
    Next
    .Send
End With
Bruno


ok ora va tutto, il codice per la firma è perfetto per far funzionare il mio 
mi sono creato una tabella con un campo memo gli ho copiato l'html della 
firma e me lo inserisco tramite un dlookup.
Anche il tuo codice per il doppio allegato è perfetto ora l'ultimo passo... 
perche quando vado a popolare una casella combinata con questo codice non mi 
da le directory ma solo i file?
Dim MyPath As String
Dim MyName As String
Dim j As String
j = "*.*"
Me!Elenco.RowSource = ""
MyPath = "c:\"
MyName = Dir((MyPath) & j)
  Do While MyName <> ""
    MyName = Dir
  Loop
Me!Elenco.RowSource = Left(Me!Elenco.RowSource, Len(Me!Elenco.RowSource) - 
1)
P.s. se invece riesci a far capire un ciuco come me come aprire la finestra 
di exporer e scegliermi un file o una directory da li sarebbe il massimo 

 di exporer e scegliermi un file o una directory da li sarebbe il massimo
Divertiti:
====================================
Public Function FileSelect(Optional InitialDir As String) As String
Dim FD As FileDialog
Set FD = Application.FileDialog(3)
' msoFileDialogOpen         =   1
' msoFileDialogSaveAs       =   2
' msoFileDialogFilePicker   =   3
' msoFileDialogFolderPicker =   4
With FD
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "All Files", "*.*", 1
    .Filters.Add "Documents", "*.doc", 2
    .Filters.Add "Spreadsheets", "*.xls", 3
    .Filters.Add "Databases", "*.md?", 4
    .InitialView = msoFileDialogViewDetails
    .Title = "Select File"
    .InitialFileName = InitialDir
    .Show
End With
If FD.SelectedItems.Count = 0 Then
    FileSelect = ""
Else
    FileSelect = FD.SelectedItems(1)
End If
Set FD = Nothing
End Function
==============================================
Bruno

 ha scritto nel messaggio 
news:4cd2e613$0$40014$4faf...@reader3.news.tin.it...

grande.... ma come la tela di penelope non č finita...... per scegliere una 
cartella intendo quella finestra dove si vedono solo le cartelle?
grazie e ciao ....
Max

 Max
Se ho capito bene, in Set FD = Application.FileDialog(3) sostituisci il 
3 con 4.
Bruno

 ha scritto nel messaggio 
news:4cd3db23$0$45264$4faf...@reader4.news.tin.it...

questa l'avevo già fatta e diciamo che può anche andare bene però mi 
presenta la stessa schermata della 3 dandomi la possibilità di scegliere una 
directory invece di un file, io però intendevo quella finestra più piccola 
con le directory "ad albero"  (quella che esce quando per esempio devi 
scegliere la directroy per un driver) comunque non so davvero come 
ringraziarti..
Ciao
Max