Intanto Buon giorno a tutti,
ho provato a cercare nel forum ma non ho trovato nulla che potesse rispondere al problema che ho:
ho fatto un programmino per gestire le telefonate in ingresso nella mia azienda, e grazie anche a suggerimenti trovati "qua e la" funziona tutto molto, salvo un problema che non riesco a risolvere.
provo a spiegarmi:
dovrei usare come account MITTENTE un indirizzo mail che trovo in un campo ben definito sulla maschera che genera la mail.
non funziona perchè mi pesca in automatico l'User del PC, che per policy aziendale non permette l'invio delle mail.
qui sotto metto il VBA che ho scritto
******************************************************************************************************************************
Private Sub Comando27_Click()
Dim ApriApp As Object ' Apre la posta
Dim ApriMail As Object ' Crea il messaggio
Dim TestoMsg As String ' contiene il testo del messaggio
Dim IndDest As String ' contiene l'indirizzo email
Dim IndMit As String ' contiene l'indirizzo del mittente
Set ApriApp = CreateObject("Outlook.Application") ' Si apre OutlooK
Set ApriMail = ApriApp.CreateItem(0) ' creo una email vuota
' Il codice è scritto in html
TestoMsg = "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' '
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt'>"
TestoMsg = TestoMsg & "<html xmlns='
http://www.w3.org/1999/xhtm'>"
TestoMsg = TestoMsg & "<body>"
TestoMsg = TestoMsg & "<table width='800px' border='1' cellpadding='0'>" ' Formato Tabella
TestoMsg = TestoMsg & "<tr>"
TestoMsg = TestoMsg & "<td ><p align='center'><strong>DATA Chiamata</strong></p></td>" ' Intestazione Tabella
TestoMsg = TestoMsg & "<td ><p align='center'><strong>ORA Chiamata</strong></p></td>" ' Intestazione Tabella
TestoMsg = TestoMsg & "<td ><p align='center'><strong>DESTINATARIO Chiamata</strong></p></td>" ' Intestazione Tabella
TestoMsg = TestoMsg & "<td ><p align='center'><strong>Nome Cliente</strong></p></td>" ' Intestazione Tabella
TestoMsg = TestoMsg & "<td ><p align='center'><strong>Nome Chiamante</strong></p></td>" ' Intestazione Tabella
TestoMsg = TestoMsg & "<td ><p align='center'><strong>Numero Telefono</strong></p></td>" ' Intestazione Tabella
TestoMsg = TestoMsg & "<td ><p align='center'><strong>Motivo Chiamata</strong></p></td>" ' Intestazione Tabella
TestoMsg = TestoMsg & "<td ><p align='center'><strong>Note</strong></p></td>" ' Intestazione Tabella
TestoMsg = TestoMsg & "<td ><p align='center'><strong>Da Fare</strong></p></td>" ' Intestazione Tabella
TestoMsg = TestoMsg & "<td ><p align='center'><strong>Priorità</strong></p></td>" ' Intestazione Tabella
TestoMsg = TestoMsg & "</tr>"
TestoMsg = TestoMsg & "<tr>"
TestoMsg = TestoMsg & "<td><p align='center'>" & Format(Data_Oggi, "dd/mm/yyyy") & "</p></td>" ' Campo data della chiamata
TestoMsg = TestoMsg & "<td><p align='center'>" & Format(Ora_Adesso, "hh:mm") & "</p></td>" ' Campo ora della chiamata
TestoMsg = TestoMsg & "<td><p align='center'><strong>" & Nome_Destinatario & "</p></td>" ' Campo NOme della persona mit.D.
TestoMsg = TestoMsg & "<td><p align='center'><strong>" & Nome_Ditta & "</p></td>" ' Campo Nome della azianda che ha chiamato
TestoMsg = TestoMsg & "<td><p align='center'><strong>" & Format(Nome_Chiamante, "Standard") & "</strong></p></td>" ' Nome del chiamante
TestoMsg = TestoMsg & "<td><p align='center'>" & Format(Numero_Telefono) & "</font></p></td>" ' Campo Numero telefono chiamante
TestoMsg = TestoMsg & "<td><p align='center'>" & Format(Motivo_Chiamata) & "</font></p></td>" ' Campo Motivo Chiamata
TestoMsg = TestoMsg & "<td><p align='center'>" & Format(Note) & "</font></p></td>" ' Campo Note
TestoMsg = TestoMsg & "<td><p align='center'>" & Format(Motivo) & "</font></p></td>" ' Campo azione da fare con la chiamata
TestoMsg = TestoMsg & "<td><p align='center'>" & Format(Priorità) & "</font></p></td>" ' Campo Tipo di priorità
TestoMsg = TestoMsg & "</tr>"
TestoMsg = TestoMsg & "</table>"
TestoMsg = TestoMsg & "<br />"
IndMit = Email_Centralinista ' indirizzo mail della Centralinista
IndDest = e_mail ' Variabile contenente indirizzo email
With ApriMail
.To = IndDest
.CC = ""
.BCC = ""
.Subject = "CHIAMATA TELEFONICA"
.HTMLBody = TestoMsg
.Display
End With
End Sub
******************************************************************************************
grazie in anticipo
Eolo